DÉCEMBRE 1984 


BASIC A L'ESSAI 


| M La jeune Alice 90 : 
un lêger embonpoint 
E Simons’ Basic, un excitant 
pour le C.64 
B MSX: le standard en vogue 
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|_ treize nouvelles machines 
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les fichiers Visicalc 
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B Un Forth pour Spectrum 
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vendus à plus de deux. millions. 
- d'exemplaires, lan Livingstone est : 
le créateur d'Eureka.… ar o 
Il à imaginé les énigmes et les pièges les re | 
tors, Il est d'ailleurs le seul, pour l'instant, à con- 
naître la bonne réponse. Programmé par les équi- 
pes d'Andromèda, Sous la direction de DonatKiss.… | 
et-Andras, Csascar, Eureka représente 5 années 
detravailetleconcours de 4 graphistes, 2 musi- 
ciens.et d'un, professeur de logique. ; 
Nous voulions une aventurequivouspoussedans 
vos derniers retranchements. Ils l'ont fait! 


AN TEMPOREL 
Au cours de la dix-septième 
mission Apollo, les astronautes 
américains découvrent sur la Lune 
un étonnant cristal poli de 40 cm de 
côté. Réfractaire à toute analyse, le 
talisman explose sous l'effet de ra- 
yons laser, qui dispersent chacun de 
ses angles. Grâce à des ondes radio, 3 
des coins sont retrouvés, mais 5 autres 
manquent toujours 

Comme par coïncidence, la Lune 
connaît de très fortes secousses sismiques. 
Selon le Dr Majid, elles sont liées à l'explosion 
du cristal et la lune serait elle-même sur le point 
d'exploser, bombardant la Terre de gigantes- 
ques météorites. Il affirme, d'autre part, que cha- 
que Coin manquant a été propulsé dans l'espace 
temps allant de la préhistoire à l'époque moderne. 

Votre mission consiste, avec l'aide de la Nasa et 
de son Chronotron, à remonter le temps pour les 
rapporter. 

À chaque étape vous devez user de toute votre 
intelligence pour résoudre chaque énigme ; votre adres- 
se vous aidera à survivre. Eureka, en proposant un jeu 
d'Arcade suivi d’un jeu d'Aventure, teste parfaitement les 
qualités que l'aventure au réel exigerait de vous. 

Vous désirez participer au Concours Eureka: c'est très 
simple. llfaut que vous possédiez, soit un système Commodo 
re64 ou Spectrum 48K et acheter le programme Eureka 
A vous de jouer 
Pour découvrir la bonne réponse, il faut, tout en reconsti 
tuant le cristal, décoder les énigmes contenues dansles poèmes 
et les illustrations. 

- Le premier à nous télégraphier la bonne réponse recevra 


ureka, c’est cinq aventures en une 
seule cassette. 

à Remontez le temps et sauvez le 
monde ! 


AGE PREHISTORIQUE 

Seul, sans défense, vous vous retrouvez 
à l'aube des temps. Autour de vous? 
la jungle, le bruissement des feuilles, 
des pas dans les broussailles. Votre 
sang se fige. Une ombre immense 
vous recouvre. Le sol tremble. 


LA ROME ANTIQUE 

e départ de la course de char 
a être donné. Les autres concur- 
gnts vous observent et vous 
ouent du regard. tous au 
ême gabarit, ils vous dépas 
sent de deux têtes et leurs 
chevaux semblent mieux 
entraînés que le vôtre. Vous par 
courez le stade du regard. La course est 
partie! 


LE MOYEN AGE 

Les créneaux de la Tour de la Fée Morgane 
ne peuvent rien pour empêcher la brise 
glaciale de transpercer votre armure. 
Seul en haut de cette tour, vous enten 
dez une voix qui vous crie de la re- 


$ Joindre, là, dans l'ombre. Derrière 
le Chèque de 250.000F ie : 

A vous, des pas résonnent. Vous vous 
—Le second gagnera un voyage d'une semaine pour 2 décidez à descendre au plus pro 
personnes. 


fond de la tour, Des hurlements 


— Les 3 suivants, des bons d'achat de 5.000 FTTC déchirent la nuit. 


- Les 245 autres, des bons d'achat de 100 F TTC. OLDITZ 
COMMENT GAGNER ? . h long couloir, gris, sombre et glacé 
Vous avez reçula cassette de jeu et son fascicule. Un bon de ous avancez ‘pas à pas, attentif au 

garantie, surtout destiné à formaliser votre participation, com oindre bruit. Du bout du couloir vous 

porte 2 volets :un que vous devezabsolument conserver, l'autre parvient une conversation assourdie. 
que vous devez impérativement nous retourner dûment rempli. A votre droite, une porte ! Sur la porte 
llconstitue la seule véritable preuve de votre participation. N'ou- un mot : VERBOTEN! 

bliez donc surtout pas de nous le retourner. Si, d'autre part, vous Vous l'ouvrez. Le bruit métallique 

avez découvert la bonne réponse, ne nous téléphonez pas! des bottes se rapproche. Vous ser- 

Adressez-nous un télégramme répondant aux conditions pré- 


rez les poings. 
vues dans le règlement F 
» Eureka est un programme aussi spectaculaire qu'une super LES CARAÏBES MODERNES 
production de cinéma. Les graphismes et les animations sont 


Vous remontez le temps à la vitesse 
Le 
surprenantes de vérité. La bande sonore et les bruitages vous 


C7) de la lumière. Dans l'immense labora- 
replongent, grâce à une simulation parfaite, dans chacune des \ SA. (0re du Dr Von Berg, l'écran de l'or 
cinq époques, Vous percevrez tout : 


+ dinateur affiche les informations 
Ilest joint à ce programme un fascicule détaillé qu'il est” 


Callé dans un fauteuil, les mains 
essentiel de lire attentivement. Illustré, il contient toutes les 


posées sur le clavier, vous vous 
préparez à un duel où l'arme est 
explications du jeu et les énigmes auxquelles il vous faudra 
répondre. 


l'esprit. 
DC nr" EXTRAIT DU RÈGLEMENT 
D | DE CN CR CS DS D OS OR 
BON DE COMMANDE 


La Société PROSPECTIVE INTERNATIONALE DE DISTRIBUTION, dont le 
Siège Sociai est situé 39, rue Vicor-Massé -75009 PARIS, organise à partir 
du 1° Décembre 1984, un Concours avec obitgation d'achat intitulé 
EUREKA. Le premier dépouillement aura lieu le 31 Mars 1985. Si néces: 
saire. un dépouillement mensuel sera ensuite effectué jusqu'à ce que les 
250 Prix soient distribués. Ce concours est ouvert àtoute personne physi- 
que résidant sur un territoire francophone, à l'exception du Personneldes 
Sociétés organisatrices ainsi que toute personne ayant participée à l'éla- 
boration, là promotion, la distribution et la revente du jeu EUREKA 
Pour participer au Concours, il faut : acheter le jeu EUREKA et renvoyer le 
Bon de Participation joint ; pour gagner, il faut être l’une des 250 premiè 
res réponses aux énigmes contenues dans le jeu et ce, par télégramme. 
Le réglement complet a été déposé chez Maître JAUNATRE, Huissier de 
Justices à PARIS, et peut-être obtenu, sur simple demande accompagnée 
d'une enveloppe timbrée à: + 

Concours EUREKA - 39, rue Victor Massé - 75009 PARIS. 


Je désire recevoir le JEU EUREKA SUR CASSETTE, au prix de 250F, Je ne le recevrai qu'à 
partir du 1/12/1984, date de début du concours ; et mon règlement ne sera encaissé. au plus 
tôt, que 8 jours avant la livraison du jeu. 


LC 
JEU EUREKA POUR COMMODORE 64 [1 250 F TTC. j 


JEU EUREKA POUR SPECTRUM 48K [1] 250 F TTC. 


Nom = — - Prénom 


Adresse 


Ville _ _ Code postal: L_1_1 1 | | 


Crjointe la somme de F _ _ TTC, par chèque bancaire à 
l'ordre de EUREKA INFORMATIQUE, 39/41, rue Victor-Massé - 75009 PARIS. 


LT 


0 M ù —æ 


OFFRE EXCEPTIONNELLE! 


ZX Spectrum 


ir duér 
Æ Vu où 


ci où (wW ef 1 vi 15 fe) !#: (1: sm 


=: Facruen | 


swirr Cène Cle 


ensemble * né ft SRA Ma 


48K Un ordinateur SINCLAIR SPECTRUM 48K / Un interfa- COMMODORE64 Un ordinateur Commodore 64 / Un interface Peritel / 

ce Peritel/Un magnetocassette/Un Interface Joystick / 3 990 F Un magnétocassette pour C64 / Les divers câbles de 

r 2.890 F Un Joystick / Les divers câbles de branchement / ue branchement (magnétophone, télé et secteur) / Un 
’ Le programme EUREKA. joystick / Le programme EUREKA. 


CADEAU 


Les personnes ayant 

passé commande avant 

##, le 3112.84. Recevront 
# gratuitement le guide 


Le concoursn'ouvrant quele 1° décembref1984, aucun jeuEurekaneseralivré au publicavant cette date. Les expéditions des 
programmes Eureka débuteront donc le 30 novembre 1984 et seront effectuées dans l’ordre d'arrivée des commandes. Les 
chèques seront encaissés 8 jours seulement avant la date d'expédition. Le matériel, lui, sera livré immédiatement. 


“Les éléments de ces ensembles peuvent être acquis séparément : consulter le bon de commande ci-dessous ou notre catalogue VPC. des logiciel 84. 
BON DE COMMANDE PRIX EN FRANCS, TTC QTÉ Votre Commande en Francs Signature: 
@ ENSEMBLE COMMODORE PROMO EUREKA ...................... 3990 ... ——— 
COMMODORE 64 PAL SEUL .............,,..,,.,.....,...... 2790 ... 
1 COMMODORE 64 PERITEL SEUL ............,,............,... 3450 ... 
j COMMODORE SX 64 PORTABLE .........................,.,.. 8490 ... Signature des parents 
j UNITE DE DISQUETTES COMMODORE. ........................, JA, +5: (Pour mineur) 
À LECTEUR DE CASSETTE POUR COMMODORE .................... 400 a 
> IMPRIMANTE COSMOS 80 .................................. 2850 
INTERFACE CENTRONICS POUR IMPRIMANTE ....,...,........... 240 
LOT DE 10 G DSQUETT LR Reste nt oi aa nie 5 
: BOITE DE 10 DISQUETTES VIERGES. ................,.......... 190 ... 
<< nn OS un un um 
© ENSEMBLE SPECTRUM PROMOTION EUREKA ............,....... 2890 ..…. em ee de 
ORDINATEUR SPECTRUM 48K PAL ............................ 1890 ... I Nom: 
ORDINATEUR SPECTRUM 48K PERITEL. ........................ 2220 _— 
INTERPCE ZX SPECTRUM seance tasnssoumrontemrnes 745 (| 
PTERFAGE JON STI eue es cs duomemsdansinpesetstiaes 180 ... A Adresse : 
] MICROOURNE SPECTRUM à sus ds ms es se neveu do 145, 4: I 
; DOUBLE MICRODRIVE ROTRONICS ............................ 1990 …: _— Le 
MICROCASSETTE POUR MICRODRIVE SINCLAIR .......,......,..... 19. ir I : 
LECTEURDE CASSETTE. 5 à uuénsaadé se vesdo nuance 450 ... ue 
IMPRIMANTE THERMIQUE ALPHACOM 32 ....................... 920 ... 2 Code postal: |_ 
ROULEAU DE PAPIER THERMIQUE. .......................,.,.. SÙ x 
MONITEUR COULEUR CM14 FIDELITY ..........,..........,.,.. 2750 I Ville 
CABLE POUR BRANCHER UN COMMODORE 64 SUR CM14.......... 80 
CABLE POUR BRANCHER UN SPECTRUM SUR CM14 .............. 130 ee ne ee me 
MONITEUR N/V PHILIPS TP200 .............................. 950 ... 
JOYSTICK SPECTRAVIDEO .................................. 95 4: s 
JOYSTICRIRRAET atome nimnasees té mremceocudeeste 85: “5e 
Total de votre commande : F TTC. : | 
Nom Prénom Pen tnt mnt 
RE CE le vente par correspondance. Ci- 
Adresse Ville Code postal = joint 5 Francs en timbres-poste 
Cijointe la somme de F TTC, par chèque bancaire à l'ordre de EUREKA INFORMATIQUE pour contribution aux frais d'ex- 


39/41, rue Victor-Massé - 75009 PARIS. ! pédition. 


[1 à 


H 


dise 2 
ÉEREREETE 


28 ur 


CONFIDENTIEL POUR X-07 
Obtenir qu'un message ne 
soit lisible que par son 
destinataire, c'est l'objet de 
la cryptographie, discipline 
où les ordinateurs sont des 
auxiliaires incomparables. 


1 COUVERTURE 

Avec Fabien Lacaf, qui a 
illustré notre couverture, 
toute l'équipe de LIST vous 
souhaite de joyeuses fêtes de 
Noël et vous présente ses 
vœux pour une heureuse 
année 1985. 


K] 0 PARAMÉTREZ, 


VOUS DIS-JE... 

Ce mois-ci, les amateurs de 
paramètres pourront s'en 
prendre à l'utilisation de 
certains périphériques : 
écran, imprimante, lecteur de 
disquette... 


1 4 À VOS CLAVIERS 
1 () LA GAZETTE 


DE LIST 


3 3 LA GRANDE 


MISÈRE DES FONCTIONS 
INVERSES 

Sur la plupart des machines, 
toutes les fonctions 
mathématiques ne sont pas 
logées à la même enseigne. 1! 
y a souvent moyen 
d'améliorer les résultats les 
moins précis. (Exemples sur 
PC-1211 et TI-58.) 


2 L] LE BASIC DU 


STANDARD MSX 

D'origine Microsoft, le Basic 
MSX est étendu et polyvalent. 
Rien de révolutionnaire, mais 
bien des atouts et 
notamment celui de se 
présenter comme une norme. 


LIST - PAGE 4 


FH MARINE FFE 
BE fs 


30 LES COUPS D'OEIL DE LIST 


36 FORTH POUR SPECTRUM 
Le Forth dans une version très classique : conforme au 


Standard Fig Forth 79. Pour ZX Spectrum avec 
« microdrive ». 


38 SIMONS BASIC POUR C.64 

On a de la peine à reconnaître le C. 64 avec cette cartouche 
qui apporte plus de cent commandes et instructions 
supplémentaires, simples à mettre en œuvre. 


40 SPL, UN ASSEMBLEUR POUR LE DAI PC 

L'un des plus puissants assembleurs commercialisés pour 
le Dai. Avec la cassette audio (ou numérique), une notice à 
étudier soigneusement pour tirer le meilleur parti de SPL. 


42 INITIATION AU BASIC DU FO 7 

Six volumes (douze cassettes) pour apprendre à 
programmer le TO 7, Un bon exemple d'enseignement 
assisté par ordinateur. 


4 4 UN PROGRAMME 4 6 PASCAL APPELLE 


BASIC SOUS LA LOUPE LANGAGE-MACHINE 

Les programmes les plus Même en Pascal, la réussite 
longs ne sont pas toujours d'un programme exige parfois 
les meilleurs. Décortiquons une ou plusieurs routines en 
un jeu d'envahisseurs langage-machine. Voyons 
pacifiques {version pour comment l'Apple Il peut 
PB-700). passer d'un langage à l'autre. 
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Le] 0 MISEZ P'TIT : 


OPTIMISEZ 

Grignotons les octets et les 
fractions de seconde 
(HP-41C). Un nouveau défi et 
les résultats du précédent. 


52 BASIC ET 


ASSEMBLEUR POUR 
L'ALICE 90 

Avec cette nouvelle version 
d'Alice, l'utilisateur dispose 
de 32 Ko de mémoire vive, 
d'un vrai clavier mécanique 
et surtout d'un Assembleur 
résident en mémoire morte. 


pe] 4 LES FICHIERS 


DE VISICALC 

Une fois que l'on connaîit la 
façon dont sont codés les 
fichiers de Visicalc, rien 
n'empêche de les faire lire 
par d'autres programmes. 


RÉDACTION-RÉALISATION 


Directeur de la rédaction : Bernard Savonet 
Rédacteur en chef : Jean Baptiste Comiti 


5 / MOI, JE DESSINE 


DES HORREURS 

Sur Oric ou sur Apple Il, 
programmez un écran 
graphique. 


60 PASSIONNÉ 


PAR FORTH 

Dans notre découverte du 
Forth, nous en arrivons, entre 
autres sujets, aux différents 
types de nombres manipulés 
par ce langage. 
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SOMMAIRE 


64 LA MUSIQUE DU 


PC-1251 

Grâce à une courte routine en 
langage-machine, faites 
émettre au poquette de Sharp 
toute une gamme de sons. 


66 PASCAL, SUIVEZ 


LA PROCÉDURE 

Numéros d'identification 
divers, codes postaux, 
sommes comptables, etc., 
autant de formats différents 
nécessitant une petite « mise 
en forme ». 


68 LES DIX TESTS 


DE LIST 

Ce sont maintenant trente 
ordinateurs {de table comme 
de poche) qui ont subi les dix 
tests de LIST. Un tableau 
récapitule les résultats. 
Attention toutefois, 
comparaison n'est pas raison. 


Hlustrations : Philippe Burel, C. Christ, Chimulus, Frapar, 
Bernard Helme, Fabien Lacaf, Alain Mangin, Pasty, Alain Pri 
gent, Nestor Salas, Nicolas Spinga. 


Responsable de rubrique : Anne-Sophie Dreyfus 
Conception graphique et secrétariat de rédaction : 


Eliane Gueylard 
Assistante de rédaction : Maryse Gros 


ÉDITION-PUBLICITÉ-PROMOTION 


Éditeur : Jean-Pierre Nizard 
. . …… Éditeur-adjoint : Jean-Daniel Belfond 
Ont collaboré à ce numéro : Olivier Arbey, Michel Ardittl. Administration : Maryse Marti, assistée d'Anne Stolkowski ai 


Pierre Barnouin, François J. Bayard, Jean-Antoine Berro, publicité : Béatrice Ginoux Defermon, assistée de Nadine 
Robin Bois, Jacques Boisgontier, Christian Boyer, Jean-Paul Schops e. 


Carré, Thierry Chamoret, Raymonde Coudert, Robert 
Daguesse, Jacques Deconchat, Vincent Di Sanzo, Jean-Marie 
Donnat, Bruno Fiter, Philippe François, Florence Gautier- 
Louette, Pierre Ladislas Gedo, Max Hagenburger, Renée VENTES 2. 

Koch, Jean-Christophe Krust, Jacques Labidurie, Jean-Pierre Diffusion NMPP : Béatrice Ginoux Defermon 
Lalevée, Bernard Lambey, Alain Lavenir, Thierry Lévy- Abonnements : Muriel Watremez 
Abégnoli, Marc Leygnac, Alain Mariatte, Pierrick Moigneau, assistée de Cécilia Mollicone et Sylvie Trumel. 
Monti, Yvon Pérès, André Reeb-Gruber, Edouard Rencker, 
Pierre Ricard, Denis Sebbag, David Segard, Christophe Taver- 
nier, Benoît Thonnart, André Warusfel. 


Administration : Marie-Hélène Muniz 


Directeur de la publication : Jean-Luc Verhoye 
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* 0 LA BOÎTE 


A MALICES 

Prenez un programme et 
retirez-en toutes les astuces, 
des plus grossières au plus 
subtiles. Que reste-t-il ? Rien. 
Dans ce numéro, des ficelles 
pour Oric-1, Atmos, PC-1251, 
TI-57 LCD, TO7, Dai, Apple Il, 
ZX 81, MSX, HP-I1C, 
Spectrum... 


8 4 LA RÉCRÉ DE LIST 


Exercez votre logique et votre 
ingéniosité pour résoudre 
quelques petits problèmes 
simples en apparence. 


12, 77 et 78. 


LIST - PAGE 5 


LA GAMME DES LOGICIELS 
POCKET SOFT EE 


POUR SHARP PC1500® | 


PC-UTIL 2° : 19 nouvelles instructions BASIC. | 
PC-VISION® : Editeur plein écran. 


X MON® : Editeur-assembleur avec manuel 
d'apprentissage du langage machine. 


Disponibles dans les boutiques micro-informatique 
Département REVENDEURS 
21, rue du Général Foy 75008 Paris 


JYOTEME DE GESTION 
DE BASES DE CONNAISSANCE 74 


XPER est le premier système de gestion de Bases de 
Connaissance pour Micro Ordinateur. C'est un logiciel intel- 


- Possibilité de retour arrière. 
- Suppression automatique des questions non discriminantes. 


ligent, interactif, facile d'emploi permettant de résoudre des 


Tél. : 293.32.70 
\ ET 
DE 
L À A $ R problèmes de détermination et diagnostic. 
DOMAINES D'APPLICATION 
PI 5 ni. ete nel PS UE de 
CRT UO ntification Assi or Ordinateur 
L # Pi “A: remet rer trs 
- a décision. 
4 NW 2% PRINCIPALES FONCTIONS 
\ 4 - Création de la Base de Connaissance 
L D : : Déduaion de Règles | | 
nee lobes 
 d » | É 5 er “abs de diernisise choisie par l'utilisateur. 
| Fe 0 - Résolution effectuée pas à pas. 
4 VE 
MICRO APPLICATION 
DE 
4 4 


- Consultation et Recherche Multicritères 
92500 RUEIL-MALMAISON 
LIST - PAGE 6 


Télex : MA 205944 F 


447, av. Paul Doumer ® 
Tél. : (1) 732.92.54 Fu s 


- Justification à tout moment de la détermination. 
- Prise en compte du doute. 
- Impression. 


CONFIGURATION ET PRIX 
IBM-PC et Compatibles : 3000 F TIC 
APPLE 2 (64 K) : 1950 F TIC EE] 
Une version est également disponible sur Com- 6e 
modore 64. 


XPER est un logiciel développé en FRANCE e 
par le Docteur J. LEBBE et édité en & 
exdusivité par MICRO-APPLICATION. & < 
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; 


LES MÉMENTOS PS.L.: 


les clefs de 
votre 


ordinateur. 


Des livres destinés à se trouver en 
nence à côté de votre ordinateur in 
tandis que vous programmez ? 

Des livres qui renferment toutes les infor- 
mations que vous avez besoin de retrouver 
rapidement: syntaxes des commandes, 
codes caractères, message d'erreur, codes 
machine, adresses utiles. ? 

Des livres qui vous donnent des ‘trucs’ très 
précieux ? 

Ces livres sont les MEMENTOS P.S.I., pour 
une utilisation quotidienne de votre ordi- 


7/11 


erma- 
ividuel 


UT ET 4 
CLEFS pour 
À Œ_/ EX SecTRuk D _srans 


re Se EE à 


LL CR 


LEFS POUR 
NGC 


POUR 
à L'APPLE [I 


APPLE Il plus et APPLE /e 


Clefs pour FOric 

Oric 1 et Atmos 

par Emmanuel Flesselles 

116 pages - 100,00 FF 

Clefs pour le ZX Spectrum 
par Jean-François ct 

112 pages - 90,00 FF 

Clefs pour le ZX 81 
nt Jean-Frai M Sehan 


Clefs pour l'Apple TA 


se pour le Vic 
par Nicole Bréaud Pouliquen par Daniel-Jean David 
144 pages - 100,00 FF 120 pages - 90,00 FF 
Clefs pour le Commodore 64 Le Basic de À à Z 
par Daniel-Jean David par Jacques Boisgontier 


128 pages - 100,00 FF 176 pages - 110,00 FF 


Clefs pour Multiplan Clefs pour Visicalc CP/ M mot par mot 
por JL Marx et Alain Thibault por Jean-Louis Marx é Alain Thibault par Yon Don 
128 pages -100,00 FF 104 pages - 100,00 FF 112 pages - 90,00 FF 


CHEZ VOTRE LIBRAIRE OU EN BOUTIQUE SPÉCIALISÉE 


P.S.i. DIFFUSION 


es 
E« 
D 


FRANCE 

Téléphone (6) 006.44.35 
P.S.I. BENELUX 

5, avenue de la Ferme Rose 
1180 Bruxelles 
BELGIQUE 

Téléphone (2) 345.08.50 
P.S.L. SUISSE 

Case postale 

Route neuve 1 

1701 Fribourg 


SUISSE 
Tél. : (037) 23.18.28 
CCP 17.56.84 
Au Maroc Au Canada 
SMER DIFFUSION  SCE Inc. 
3, rue Ghazza 65, avenue Hillside L 3 
Rabot Montréal (Westmount) FF = S0FS-240FS 
MAROC Québec H321W1 - CANADA 


Tél.:(7) 237.25 Tél. : (514) 935.13.14 


BP 86 - 77402 Lagny-S/Marne Cedex 


N° 


NOM 


Code postal … 


Envoyer ce bon 
accompagne de votre 
reglement a 

P.$1 DIFFUSION 

où. pour la Belgique et 
le Luxembourg à 
PSI. BENELUX 

ou. pour la Suisse a 
PS1 SUISSE 


DESIGNATION 


par avion . ajouter 8 FF (75 FB) par hvre 
Pour la SUISSE frais de port sur tout envoi : 1.50 FS 


_ j! 


Signature (obligatoire pour paiement [| 


Paiement par cheque joint [D Paiement en FF par carte bleue VISA par carte de crédit) 


{à P.S.I. DIFFUSION uniquement} 
paiement supérieur à 50 FF 


m 
LI 


Je désire recevoir le catalogue P.S.I. 


ee CN ei 


de PRENOM 


n—— _— Ville 


ISSN 0183 - 570X 


Data General One 
Ericsson PC 
Publi-base pour IBM PC 
FileVision pour Macintosh 


conmodire Plus/4 
Einstein 
Lecteur de disquettes Oric 


dessiers de | LE 


es 


TS te 
LT 


M 2946 -65-23F 


Pour l’assembleur 
NE VOUS DISPERSEZ PAS! 


Une introduction au’ langage machine 
et à son frère l'Assembleur illustrée 
d'exemples et d'exercices, indispensa- 
ble pour mieux en comprendre les 


aus P ammer en assembleur 
par Alain Pinaud 
144 pages - 90,00 FF 


Quels sont les avantages et limites du 

Fortran, du LSE, du Pascal, du Cobol, 

de l’Assembleur et qu'est ce qui carac- 

térise tous ces langages ? Des réponses 

à toutes ces questions dans le livre : 
Langages de programmation 
par Stéphane Berche et Claude Lhermitte 

136 pages - 80,00 FF 


P.S.1. DIFFUSION 


i vous maîtrisez déjà un ou plusieurs langages 

évolués, la connaissance du langage machine et 

de l'assembleur vous donnera un moyen efficace 
d'améliorer les performances de vos programmes. 
P.S.I. vous propose: 1 


vous trouverez: 


eles particularités des langages 
machine et leurs avantages 
(vitesse d'exécution, occupa- 
tion mémoire...); 


eo des détails et des exercices Fe 


sur les codes machines, les jeux Programme interne MATÉRIEL COMMODORE 
d'instructions avec leurs modes Artit du Commodore 64 
| | par Mikon B. Bathurst 
d'adressage, etc. La méthode 248 pages - 130,00 FF 
adoptée par les auteurs de ces L'assembleur 
ouvrages consiste à transposer du Commodore 64 
progressivement le langage Ba- Hair eo of 
sic en langage machine (‘La 208 pages - 100,00 FF 
_pratique de l'Apple” - tome 3; Le livre du 64 
“L'assembleur de l'Oric”...) par Benoît Michel 
304 pages - 120,00 FF 
les “Clefs pour...” qui seront Clefs pour le Commodore 64 
til de réfé par Daniel-Jean David RE 
votre ou e référence 128 pages - 100,00 FF 64 
pour retrouver rapide- Le livre du Vic Clefs pour le Vic 
ment: par Benoît Michel par Daniel-Jean David 
248 pages - 110,00 FF 120 pages - 90,00 FF 
eles registres internes (6502, ; 
Z80...); MATÉRIEL TRS 


e les jeux d'instructions; 

ele schéma des modes d'adres- 
sages; 

ele tableau de désassemblage. 


Clefs pour le TRS-80 - tome | 
par Rémy Pineau 
192 pages - 120,00 FF 


ZX SPECTRUM 
Va PRE UN Ou Space 
par Trevor 


Toms 


168 pages - 90,00 FF 


Jean-François 
112 pages - 90,00 FF 


EGALEMENT CHEZ VOTRE LIBRAIRE ET EN BOUTIQUE SPECIALISEE 


e bo Taie ie 
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Code posla! - 


TRICOT 


À gb: 
a nes cakes 
Era 


JEU DU RANDONION 


l'Atseme een 


nn te CS 


1es parues dans Votre Ordinateur n°1 à 9 


ENSEIGNEMENT VIE PRATIQUE MUSIQUE 
pple - Atari - Atmos - Oric 1 - Commodore 64 - Vic 20 
TO 7 - TO 7-70 - MSX - Yeno SC 3000 - ZX Spectr 


en vente chez voire marchand de journaux 


Avec en plus : MICROCALC, un petit tableur 
en TURBO PASCAL source pour vous montrer 
comment écrire un ‘calc” en Pascal 


ED 


e Chaînes dynamiques avec fonctions 
de manipulation RENTRER Die 
Programmes Overlays et chaînés BON DE COMMANDE 

Appel aux fonctions du Dos 
Fonctions trigo et exponentielles 
Manuel en français (280 pages) 


joindre règlement 


DOS : PC DOS [ MS DOS [] 
CPM 86 [1] CPM 80 


Ordinateur ____ = — 
TURBO PASCAL est distribué en France Format de disque - 
exclusivement par : NOM :__ in 
42, RUE DES PRÉBENDES - 37000 TOURS ADRESSE : - à 


| 

| 

| 

| 

| 
FRACIEL ÿ 

| 


Tél.: (47) 64.08.52 


4 LIGNES EN POCHE:16K EN CARTE 


SHARP PC-1350 


e Affichage grand écran 
4 lignes x 24 caractères. 


e Haute résolution 


4.800 points (150 x 32). 


e Mémoire 4 Ko extensible à 
8 ou 16 Ko par cartes RAM 
au format carte de crédit. 


— ; ja : e Interface RS 232C intégrée. 
Se , Le PC 1350 peut ainsi 
(E] © © © CG © dialoguer avec tout autre 


ordinateur, gros ou petit. 


SHARP 


153, avenue Jean-Jaurès 93307 Aubervilliers Cedex 
Téléphone : 834,93.44 - Télex: 212174 F 


Le gamme SHARP c'est aussi : PC-1245, PC-1251, PC-1260, PC-1261, PC-1401, 
PC-1500A et les services du Club des SHARPENTIERS. 
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Comme quoi... 


EPUIS le premier numéro 

de LIST, mes craintes se 
sont (hélas) confirmées : avec 
Pélargissement de votre horizon, 
vous ne faites que rejoindre 
d’autres revues vulgarisant l’in- 
formatique individuelle. 

Ce que je déplore, c’est que 
les ordinateurs de table se subs- 
tituent totalement aux ordina- 
teurs de poche. Les gros ordina- 
teurs et leurs langages ont déjà 
un certain nombre de revues à 
leur disposition. 

Toutefois, je sais que les pro- 
grammes sont envoyés par les 
lecteurs, aussi faudrait-il, peut- 
être, que les fans des ordinateurs 
de poche se réveillent… 

Néanmoins, je m'intéresse à 
votre revue et je pense même 
m'y abonner. Comme quoi ! 


Xavier PADRONA 
83 La Garde 


B Dans la mesure du possible, 
LIST accueille dans ses colonnes 


ANSTALLEZ VOTRE Micro 
DANS UN ENDROIT 
SPACIEUX ET PROPRE . 
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tout ce qui touche à la program- 
mation, tant sur les ordinateurs 
de poche que sur les ordinateurs 
de table. A chacun de faire les 
adaptations nécessaires. Ainsi, 
un programme écrit dans un 
Basic standard devrait pouvoir, 
moyennant quelques transfor- 
mations, tourner sur les diffé- 
rents types d'ordinateurs (à la 
taille de la mémoire prés). Cela 
dit, comme vous l’avez certaine- 
ment remarqué, nous ne 
publions pas seulement des lis- 
tes de programme... 


Le bon Basic 
du BBC 


YANT lu le numéro 4 de 
LIST, je me permets de 
vous livrer mes réactions. 
J’apprécie beaucoup que vous 
sortiez des sempiternelles listes 
de programmes pour parler 
d’autres choses : le langage Pas- 
cal, compilateur et interpréteur, 
récursivité, sans oublier dix tests 


Ecrivez a LIST 
5 place du Colonel Fabien 
75491 Paris Cedex 10 


permettant de se faire une « pre- 
mière idée de sa machine ». 

À propos de Basic récursif, je 
trouve injuste que vous pénali- 
siez la magnifique machine 
qu'est le BBC en ne mention- 
nant pas que son Basic est récur- 
sif avec procédures (possibilité 
de variables locales) et fonctions 
définies par l'utilisateur, le tout 
dans la version de base. 

Certains de vos articles se ter- 
minent par une bibliographie. Et 
c’est tant mieux. 


Robert AURELLE 
38 St Martin d’Hères 


B Tout d’abord, merci de nous 
donner vos impressions sur 
notre journal. 

Dans l'article consacré au 
Basic récursif, publié dans LIST 
4, nous n’avons pas, en effet, 
mentionné le BBC. Mais toutes 
les qualités de cette machine 
(rapidité, vocabulaire riche, 
récursivité, procédures, varia- 
bles, etc.) ont été remarquées 
dans l'essai de son Basic, pré- 
senté dans LIST 3 (pages 30 à 
32). Nous ne pouvions tout de 
même pas nous répéter. 


. POUR 
VOUS EVITER 
CE GENRE 
D'ERREUR DE 
HANIPULATI ON. 


Sous un 
nouvel angle 


ANS l’article « Conver- 

sions d’angles » publié 
dans LIST 2 (page 97), on pro- 
pose une formule pour arcsinus, 
asn (a)=atn (a//Î—a7, qui 
n’aime pas a=1 (car cela 
entraîne une division par zéro) 
et une formule pour arccosinus, 
acs (b)=atn (V1-— b?/b), qui 
n'aime pas b=0. 

Voici deux autres formules 
qui traitent toutes les valeurs de 
l'argument x comprises entre 
— let 1, bornes exclues. Ainsi, 
pour —-I<x<1: 
asn(x) = 2+atn(x/(1 + SQR(I - 
X*x))) 
acs(x) = 2*atn(1) — asn(x) 

L'utilisation de ‘‘2+atn(1}”? 
(égal à æ/2 radians ou 90 degrés 
ou 100 grades) rend les formu- 
les indépendantes des unités 
d'angle employées par une 
machine. 


Philippe KENT 
Lausanne (Suisse) 


Midi à sa porte 


RAVO à LIST qui me par- 

vient tous les mois, ici en 
Angola, grâce aux bons soins de 
mon épouse. 


HELP IS 
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Un seul point de critique : 
pourquoi parle-t-on si peu, 
sinon pas du tout du PB-700 ? 


Alphonse KEMPF 
Luanda (Angola) 


B Vous êtes nombreux à nous 
écrire pour nous demander de 
parler plus, beaucoup plus, 
d’une machine particulière (celle 
que vous pratiquez) et moins des 
autres. C’est naturel. Mais vous 
comprenez bien que votre ordi- 
nateur n’est pas le seul modèle 
commercialisé. 

D'ailleurs, quand nous tes- 
tons un ordinateur, nous testons 
surtout son langage de program- 
mation : Basic d’origine, Forth, 
Pascal, Assembleur disponibles 
sous forme de logiciels, etc. Et 
les programmes que nous pro- 
posons valent par leur résultat, 
mais aussi et surtout par la 
manière de parvenir à leur 
conception. 

Dans ce numéro justement, 
vous trouverez un programme 
présenté sur PB-700 (pages 44 et 


45), mais dont les explications 
devraient permettre une adapta- 
tion à d'autres matériels. 

Et si nous tenons à présenter 
les langages ou les programmes 
sur des matériels variés, c’est 
pour que, bon an, mal an, cha- 
cun s’y retrouve mieux et puisse 
comparer. 


De Péritel 
à Secam 


OMME je suis beaucoup 
trop jeune (j’ai 12 ans) 
pour pouvoir m'acheter une télé 
couleur avec prise Péritel, je 
vous écris pour savoir s’il existe 


INDEX DES ANNONCEURS 


DUMEZ 5x écuusrsese 


Décision Informatique 
Fraciel 


Librairie Informatique d’Aujourd’hui 


L'Ordinateur Individuel 
Maubert Electronic 
ME Dept MSX 

Micro Application 

Petit Ordinateur Illustré 
Pocket Soft 


Vidéo Shop 
Votre Ordinateur 
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un appareil quelconque qui 
transforme Secam en Péritel. 
J'aimerais acheter un ZX 
Spectrum mais malheureuse- 
ment il se trouve que ma télévi- 
sion est équipée d’une prise 
Secam. Et le Spectrum ne peut 
pas se brancher dessus. 
Longue vie à LIST. 


Stéphane PETIT 
20 Ajaccio 


M La liaison entre la prise Péri- 
tel d’un ordinateur (ou d’un jeu 
vidéo) et la prise Secam de la 
télévision est possible grâce à 
certaines interfaces. 


Nous savons que vous pouvez 
en trouver chez Video Match, 
distributeur national exclusif des 
productions de la Compagnie 
Générale de Vidéotechnique. 
Peut-être pourrez-vous, par leur 
intermédiaire, trouver un distri- 
buteur plus près de chez vous. 
Video Match 
8-10 rue Alexandre Dumas 


67200 Strasbourg 
Tél. : (88) 28 21 09 


e Equipé d'un tableur qui saisit 


et calcule immédiatement 
toutes vos données, le PC 1260 
vous indiquera également en 


clair la manière de corriger 
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La gamme SHARP c'est aussi : PC-1245, PC-1251, PC-1401, PC-1350, PC-1500A 
et les services du Club des SHARPENTIERS. 
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vos éventuelles erreurs de 
programmation. 


SHARP 


153, avenue Jean-Jaurès 93307 Aubervilliers Cedex 
Téléphone: 834,93.44  Télex: 212174 F 
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UN LIVRE 


> 7 | 
dr 
TS 


He 


Programme interne du 
Commodore 64 
Milton Bathurst 
Editions Data Cap 
(PSI diffusion) 
Belgique, 1984 
Broché, 250 pages 
Prix : 130 FF 


OUT programmateur che- 
vronné sur Commodore 
64, amateur de langage-ma- 
chine, se doit de faire figurer ce 
livre en bonne place dans sa 
bibliothèque informatique. Un 
plan de lecture simple ouvre à 
une mine de trésors que peuvent 
creuser tous ceux qui veulent 
connaître à fond le fonctionne- 
ment logiciel de leur machine. I] 
propose en effet le listage com- 
plet de la MEM Basic, désassem- 
blée et commentée, depuis 
l’adresse $A000 jusqu’à 
l’adresse $FFFF. A ces 16 Koc- 
tets analysés avec rigueur s’ajou- 
tent une table des adresses de la 
page zéro et une table de référen- 
ces croisées. 

Deux parties équilibrées cor- 
respondent au découpage en 
deux blocs de la MEM Basic du 
C.64. Le tout est rédigé de façon 
un peu sèche ; il est vrai qu’il ne 
s’agit pas d’un roman. Un livre 
à déconseiller aux débutants, 
mais qui rendra d’inestimables 
services aux autres. 


JPL M 
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Code Writer, nouveau générateur 
de programmes 


I MAGINEZ les possibilités qui vous sont offertes par un 
programme qui écrit d’autres programmes. Les concepteurs de 
Code Writer ne s’y sont pas trompés. La programmation fait des 
adeptes et n’est cependant pas toujours une sinécure. 
Destiné à l’IBM-PC, Victor, Apple et Commodore 64, Code Wri- 
ter permettra de créer des programmes de gestion de fichiers avec 
saisie, consultation, mise à jour des enregistrements et des program- 


mes d’édition. 


Deux disquettes sont fournies. La première concerne la création 
de fichiers, la saisie et la mise à jour et permet de disposer de fonc- 
tions telles que tests de validité, formatage automatique de zones. 


&g |La seconde concerne les états et les générateurs de menus. Jusque 
- [21 menus et sous-menus peuvent être créés et liés entre eux. On 


pourra ensuite les modifier, remplacer des ordres ou en changer l’or- 


e -ss| dre. De plus des routines du type retour au menu principal ou retour 
| au Basic sont intégrables directement. 


Et pour finir, la Sofitec, distributrice de Code Writer en France, 
précise que tous les programmes générés par leur logiciel peuvent 
être librement vendus, sous réserve toutefois d’en indiquer l’origine 


sur les disquettes et l’écran. 


Extension 
pour programmeurs 
en mal d’idée 


ANQUE d'idée ou ordi- 
nateur esseulé ? La so- 
ciété Sélia devrait ouvrir de nou- 
veaux horizons et permettre des 
connexions amusantes du type 
chaîne hi-fi, chaudière, ou aspi- 
rateur. Sélia distribue en effet 
une carte d’extension entrée/sor- 
tie, la PB 500 qui offrira aux 
propriétaires de Dragon les joies 
et les délires du contrôle infor- 
matique des appareils électromé- 
nagers et de loisir. 

La PB 500 se branche directe- 
ment sur le port d’extension et 
ne nécessite aucun ajustage, tous 
les canaux étant déjà étalonnés. 
Cette carte comprend en outre 8 
entrées/sorties numériques, 
4 entrées analogiques pour la 
mesure directe de température. 
Chaque borne d’entrée/sortie 
dispose d’une LED lumineuse de 
signalisation. 

Pour les amateurs, Sélia pré- 
cise que cette carte peut être uti- 
lisée pour la commande des cir- 
cuits de trains miniatures. M 


UNE CASSETTE 


Calc 

pour le Canon X-07 
Logi’Stick 

Distribuée par DDI 
Prix : environ 130 FF 


e Calc de LogiStick est 

destiné à concrétiser la ma- 
nipulation de tableaux chiffrés 
sur le X-07. Certes, il ne s’agit 
pas de transformer ce petit ordi- 
nateur en monstre, mais de tirer 
parti d’une machine très astu- 
cieuse — et modulaire. 


La présentation du Calc est 
tout à fait classique : l’utilisateur 
peut créer un tableau de 66 à 324 
cases en fonction de la MEV dis- 
ponible (de 8 Ko à 24 Ko) et les 
répartir à son gré. L’écran du 
Canon joue le rôle d’une fenêé- 
tre qui présente simultanément 
3 cases de 16 caractères. Les 4 
curseurs, à droite de l’écran, per- 
mettent de déplacer cette fenêtre 
sur toute l’étendue du tableau. 

Chaque case accepte jusqu’à 
16 caractères, dont 7 signes 
d’opérations s’il s’agit d’une for- 
mule. A noter que le programme 
possède son propre interpréteur, 
et que les calculs formulés s’ef- 
fectuent de gauche à droite sans 
priorité. L'utilisateur gère donc 
en fait un double tableau 
incluant données et formules, 


d’où une certaine perte de rapi- 
dité lors de l’interprétation des 
calculs ; mais on s’y habitue vite 
car à l’usage, l’ensemble s’avère- 
efficace. Une bonne gestion des 
erreurs évite les accidents de pre- 
mière heure et cet atout n’est pas 
négligeable quand on utilise les 
fonctions élaborées du tableur. 


Au total, onze fonctions sont 
disponibles. Elles permettent, 
par exemple, la transposition 
d’une case dans la ligne ou la 
colonne choisie ou la modifica- 
tion du contenu de la case de 
départ en fonction de la case 
d’arrivée. 


On peut regretter l’absence 
d’exemples précis dans le mode 
d’emploi (14 pages trop légères). 
Hélas, on commence à le 
savoir : le plus souvent, les noti- 
ces ne sont pas à la hauteur des 
produits — et cela vaut aussi 
bien pour les matériels que pour 
les logiciels. 


La sauvegarde des données est 
habituellement une petite corvée 
lorsqu’elle s’effectue par l’inter- 
médiaire du lent cassettophone. 
Le X-07 ne fait pas exception à 
la règle. Mais le logiciel propose 
une option séduisante : la sauve- 
garde sur carte mémoire de 
MEV alimentée par une pile 
autonome. Pour charger un 
nouveau tableau, il suffit de 
changer de carte en deux temps 
et trois mouvements. 

Pour terminer, précisons 
qu’une routine d’impression 
classique permet d’utiliser l’im- 
primante X-710 pour conserver 
une trace écrite des modifica- 
tions effectuées, ainsi que des 
résultats obtenus. 

XB H 
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Vidéo-clip Sord 


ARIAGE de raison, ou 

d’argent, vidéo-clip et 
ordinateurs font bon ménage. 
Après Coleco et Eureka, Sord 
annonce à son tour une cassette 
vidéo pour son modèle portable 
V'IS 11. Elle dure 60 minutes, est 
aux normes VHS SECAM et, si 
elle ne vante pas les mérites inou- 
bliables de l’appareil, elle en 
explique réellement le fonction- 
nement. Mise en marche, créa- 


Initiation au Forth 


tion de tableaux, formatage de SEFI 
colonnes, initialisation d’une Editions Cédic/Nathan 
cassette et programmation, tout Paris, 1984 
est expliqué en vidéo. Broché, 166 pages 
La bande fait donc office en Prix : 95 FF 


quelque sorte de manuel d’em- 
ploi et préfigure l’une des formes 
à venir de l’aide à la program- 
mation. Seul inconvénient, il 


Forth pour Micros 
Jean-Marie De Geeter 
Editions Eyrolles 


faut bien entendu un magnétos- Paris, 1984 
cope et la cassette coûte quand Broché, 180 pages 
même 370 FF. Li Prix : 90 FF 


" TOUS 


UN PETIT TOUR CHEZ LE LIBRAIRE 


Et 


IS 


ES 10 


Forth, manuel d’application 
Martin S. Ewing 

Traduit par Benoît Berger 
Editions Masson 

Paris, 1984 

Broché, 120 pages 

Prix : 85 FF 


Introduction au ZX Forth 
Marc Petreman et 
Michel Rousseau 
Editions Eyrolles 


Paris, 1984 
Broché, 130 pages 
Prix : 85 FF 


Programmer le Pascal 
André Bouckaert 
Editions Marabout 
Paris, 1984 

Broché, 352 pages 
Prix : 30 FF 


La programmation des jeux 
de réflexion 

Algorithmes en Pascal 
Louis Jardonnet 

Editions PSI 


Lagny, 1984 
Broché, 196 pages 
Prix : 105 FF 


Initiation à Logo 
Doris Avram et 
Michèle Weidenfeld 
Editions Cédic/Nathan 
Paris, 1984 

Broché, 160 pages 
Prix : 85 FF 


MICRO-ORDINATEUR SCIENTIFIQUE 
1 SHARP PC 1401 


MODE 


ptet | 


e 3534 Octets de mémoire 
programmables en basic. 


e 59 fonctions scientifiques 
préprogrammées. 
Grâce à ces deux 


otre 
CELLES LCL 
C3 3 3 
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La gamme SHARP c'est aussi : 


PC-1245, PC-1251, PC-1260, PC-1261, 
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PC-1350, PC-1500 A 


performances, toutes les 
formes de calcul sont 
maîtrisées par le PC 1401: 
mathématiques, statistiques, 
hexadécimales. 


SHARP 


s 93307 Auberv 
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Une imprimante pour Alice 


LICE s'appelle toujours 

Alice. Et elle garde sa 
robe rouge. Après une première 
enfance un peu laborieuse, voilà 
qu’elle réapparaît. Qu'’elles réap- 
paraissent, devrais-je dire, 
puisqu'il y a désormais trois 
modèles en lice. La petite Alice 
d’origine, un peu à l’étroit dans 
ses 4 Ko, dispose maintenant 
d’une  extension-mémoire, 
qu’elle partage d’ailleurs avec sa 
grande sœur Alice du coffret, 
dite encore Alice 32. Et il y a 
aussi Alice la grande, la plus 
sérieuse, Alice 90, le haut de 
gamme, quoi. Si Alice 32 et 
Alice 90 semblent compatibles 
côté logiciel, il n’en est pas tout 
à fait de même pour Alice 
4 Ko : le Basic est bien le même, 
mais la gestion vidéo est diffé- 
rente, et les amateurs de PEEK 
et de POKE auront quelques 
surprises en essayant de passer 
de l’une à l’autre. Par contre, et 
c’est heureux, il y a une bonne 
compatibilité au niveau de la 
nouvelle imprimante. 

D’apparence agréable, habil- 
lée elle aussi de rouge, cette 
imprimante thermique peut 
fonctionner en 32 colonnes (les 
3 Alice disposent au moins d’un 
affichage de 16 lignes de 32 
colonnes) et elle offre deux 
modes de fonctionnement acces- 
sibles par logiciel : le mode stan- 
dard (32 caractères par ligne) et 
le mode élargi (16 caractères par 
ligne). 

Les connexions sont simples : 
une prise pour se raccorder au 
secteur (le transformateur est 
incorporé), un cordon DIN-DIN 
pour se relier à la prise prévue 
à cet effet sur Alice, c’est une 
prise 4 broches. Un fil pour la 
détection de la porteuse (repéré 
CD), un fil pour la réception des 
données (repéré RD), un fil de 
masse (repéré GND), et un fil 
pour la transmission des données 
(repéré TD). La transmission est 
faite à 600 bauds, avec un bit de 
départ, 7 bits de données, 2 bits 
d’arrêt, et un retour-chariot 
automatique en fin de ligne. Une 
possibilité de test est incorporée 
dans l’imprimante : il suffit de 
maintenir le bouton d’avance- 
papier appuyé pendant la mise 
en route de l’appareil. Le jeu des 
caractères disponibles (non gra- 
phiques) est alors affiché. 


LIST - PAGE 18 


Un voyant rouge signale la 
mise sous tension de l'appareil, 
qui comporte un interrupteur 
général sur le côté droit. Aucun 
réglage de contraste n’est acces- 
sible, et il n’y a pas de levier 
pour faciliter la mise en place ou 
le retrait du papier. Un couver- 
cle rabattable, transparent, pro- 
tège le rouleau, et le papier 
pourra facilement être déchiré 
grâce à une rangée de petites 
dentures ménagées sur le cou- 
vercle. 

L'appareil dont je disposais 
me fournissait au départ une 
impression très pâlotte, et j'ai 
voulu essayer des papiers thermi- 
ques provenant d’autres machi- 
nes (TO7, Alphacom...). Et là, 
6 surprise : aucun de ces papiers 
ne passe. Le papier thermique 
prévu pour Alice est en effet 
moins large d'environ 2 mm, et 


En mode élargi, les caractères 
correspondant aux codes 32 à 255 


EE 


il se trouve que l'imprimante 
n’admet que cette largeur de 
papier. Dommage : il faudra 
donc faire attention en ache- 
tant ; et bien préciser la largeur 
exacte du papier désiré (en prin- 
cipe 10,5 cm). 

En désespoir de cause, je me 
suis résolu à ouvrir l'appareil 
pour voir s’il n'y avait pas un 
réglage de contraste interne. 


Bat "0 mes du 


Lee hd hp he he 


Ca Tam ET D 


BÉBÉS RD RÉ RR be ph EE He ip 


“on de 


Rassurez-vous, c’est facile : 2 vis 
à enlever, et le couvercle se 
déboîte sans trop de mal (il fau- 
dra tout de même éviter de for- 
cer pour ne pas briser les deux 
pattes arrière de maintien). L’in- 
térieur est assez dépouillé, et la 


fabrication sérieuse. Un seul 
potentiomètre accessible : c’est 


Hi Di bi ie be je et 


Pass of"s Pal eu 
RS "0" “us dl 


sur d'u DR 
El Ne Un 


# 
+ 


Ca" 


ES BUS us de 
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précisément celui-là qui règle le 
contraste. Ouf ! On referme soi- 
gneusement, et on rebranche. Ça 
marche. 

L’impression s'effectue nor- 
malement sur 32 colonnes, et les 
caractères graphiques incorporés 
dans les PRINT ou dans des 
variables alphanumériques sont 
convenablement reproduits. On 
passe en 16 colonnes en tapant 
LPRINT CHRS$(27) + CHRS 
(14), et on repasse en 32 colon- 
nes en tapant LPRINT CHR$ 


UN LIVRE 


L'enfant aux commandes de 
l'ordinateur 

Denis Krieger 

Editions Eyrolles 

Paris, 1984 

Broché, 128 pages 

Prix : 79 FF 


OICI un des trop rares 
ouvrages sur un thème 
pourtant très important : où en 
est l’analyse des rapports 
enfants-ordinateurs ? Si l’on 
peut penser que ces questions ne 
concernent que les parents, les 
enseignants et les enfants eux- 
mêmes, on ne doit pas oublier 
qu’elles vont conditionner la 
façon dont l'informatique va 
évoluer dans toute notre société. 
Dans la première partie, l’au- 
teur décrit et analyse plusieurs 
expériences informatiques, leur 
contenu pédagogique et les con- 
clusions auxquelles elles ont per- 
mis d’aboutir. Cet exposé (par- 
fois très « pédago ») trouve son 
intérêt, à notre sens, en ce qu’il 
offre une base de réflexion à 
tous ceux qui s’intéressent aux 
incidences de l’introduction de 
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(27) + CHRS(15). Il n’y a pas de 
fonction de type COPY, permet- 
tant d’avoir directement une 
copie d’écran, maïs il sera facile 
de Pobtenir par programme, 
tout au moins en mode texte 32 
colonnes, puisque les caractères 
graphiques peuvent être repro- 
duits. Evidemment, il ne faudra 
pas envisager de faire du traite- 
ment de texte intensif avec une 
telle machine (et d’ailleurs le prix 
assez élevé du papier thermique 
en dissuaderait vite), mais les 


COMMAND ES 
DE! HORDINATEL QUE 


PS 


milieu 


lPinformatique en 
scolaire. 


La seconde partie de l’ouvrage 
propose un ensemble de 22 pro- 
grammes utilisables en enseigne- 
ment, avec listes pour Spectrum, 
commentaires et objectif 
pédagogique. 

La conclusion pose une ques- 
tion qu’apparemment, au vu de 
l’ambiguité de ses démarches 
expérimentales, l'Education 
Nationale n’a toujours pas réso- 
lue : l’ordinateur est-il pour l’en- 
fant un outit d'acquisition de 
connaissances ou un outil déve- 
loppant la créativité ? 


on | 


SHARP 


possibilités sont largement suf- 
fisantes pour conserver une trace 
écrite de ses programmes, sous 
forme de listes où l’on pourra 
utiliser indifféremment des 
majuscules ou des minuscules. 
Le prix de vente (environ 
1 095 FF) est très raisonnable. 
Que demander de plus à une 
imprimante thermique, par ail- 
leurs assez rapide, très silen- 
cieuse et facile d’emploi ? 

JD E 


Interface multi-micro 


GUR ceux qui souhaitent 

utiliser leurs machines dans 
un circuit « ouvert », Kap pro- 
pose des extensions entrée/sor- 
tie modulables pouvant accepter 
jusqu’à 32 bornes. Au menu des 
applications : réalisation d’auto- 
mates, enregistrement de mesu- 
res, contrôle d’accès et systèmes 


Les anciens numéros 


sont disponibles à la 


Librairie 
on du 


253, rue Lecourbe 
75015 PARIS 


Æ (1)8287288 
{de 9 h à 19 h sauf dimanche: 
métro Convention où Boucicaut) 


CALCULATRICES et ORDINATEURS de POCHE 


accessoires et machines à écrire électroniques Sharp-Canon 


Super Promotion sur Stock ! 
HEWLETT-PACKARD 
| PC1245-PC1251-PC1255-PC1350 HP11-HP12-HP15-HP41CV 

| PC1401-15004-1260-1261-eic. HP41CX-HP71-etc. 

| CANON 


X07 et périphériques etc. FX700-FX702P-FX750-PB200 
PB750-etc. 


NOUVEAUTE "M.S.X “EN DEMONSTRATION 
MAUBERT LE CTRONIC AS bd. St Germain. PARIS 5° TEL. 325.88.80 PLACE ET M° MAUBERT 


CASIO 
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de surveillance, ainsi qu’ensei- 
gnement ou animation de 
maquettes. 

On peut brancher ces cartes 
sur bon nombre de machines 
(Apple 2, Canon X-07, Commo- 
dore 64, Oric-Atmos, ZX 81 et 
Spectrum, Thomson MO0/T07 
IBM-PC...) et leur prix semble 
raisonnable. A titre d'exemple, 
Kap annonce la carte 8 sorties 
binaires pour Commodore à 
700 FF ttc. Li 


Le FX-750 P 


UN LIVRE 


Maîtrisez les TO7 et TO7/70 
Michel Oury 

ETSF 

Paris, 1984 

Broché, 200 pages 

Prix : 86 FF 


E nouvel ouvrage est la 
reprise du « Maïîtrisez le 
TO7 », que l’auteur a revu et 
complété en fonction des quel- 


Une supercalculatrice qui cause aussi « Basic » 


E FX-750 P de Casio à l’al- 

lure sérieuse des ordinateurs 
de poche (programmables en 
Basic) de la gamme Casio FX. 
Digne rejeton de l’ancêtre 
FX-702 P, celui-ci y ressemble 
par bien des côtés mais apporte 
un « plus » non négligeable dans 
le domaine du calcul scientifique 
et statistique. 

L'originalité la plus mar- 
quante réside sans doute dans les 
cartes de mémoire, mémoire per- 
manente même quand les cartes 
sont débranchées (autonomie : 
un an ou deux selon le modèle). 
Où est l'ordinateur ? Dans la 
carte ou bien dans cette boîte 
contenant un clavier et un affi- 
cheur (cristaux liquides, 24 
beaux caractères) ? En fait, sans 
la carte, le FX-750 P ne fait plus 
rien du tout ! La totalité des 
informations nécessaires et uti- 
les — y compris la mémoire du 
système — est sur la carte. 
Enlevez-la et il n’y a plus aucun 
moyen de calculer 1 + 1. 

Tout se passe donc comme si 
l’on changeait d’ordinateur en 
changeant de carte. Il y aura 
chez l’utilisateur une carte pour 
les calculs mathématiques, une 
pour la statistique, etc. Les car- 
tes contiennent 2 ou 4 Ko (1 Ko 
représente, schématiquement, 
1024 caractères). L'ordinateur 
est livré avec une première carte 
de 4 Ko. Notons au passage 
qu’il n'existe que deux loge- 
ments pour ces extensions de la 
taille des carrés de crédit : 8 Ko 
au maximum de mémoire sont 
donc disponibles. En outre, 1296 
octets (.. « caractères ») sont 
systématiquement confisqués 
par la machine ; il faut bien que 
le FX-750 P se réserve un 
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endroit pour sa petite cuisine 
personnelle. 

Le FX-750 P est un très bon 
calculateur scientifique. Il pos- 
sède, bien entendu, les grandes 
fonctions classiques : trigono- 
métriques et inverses (en RAD, 
DEG ou GRAD), hyperboliques 
et inverses, logarithmiques et 
inverses, ,Ixl, signe INT et 


FRAC (troncatures de nom- 
bres), arrondis, nombres sexagé- 
simaux et hexadécimaux, « ha- 
sard »,.….. 

Mais encore — originalité 
marquante — le FX-750 P pos- 
sède une jolie batterie de cons- 
tantes préprogrammées : Pi, g 
(accélération en chute), c (vitesse 
de la lumière), h (constante de 
Plank), G (gravitation), e (charge 
élémentaire), me (masse de 
l’électron), U (masse atomique), 
NA (nombre d’Avogadro), k 
(constante de Boltzmann) et, 
enfin, Vm (volume d’un kilo- 
mole). 

Le statisticien trouve aussi de 
quoi nourrir ses appétits avec 
une honnête préprogrammation 
des fonctions statistiques : CNT 
(En), SUMY (2y), SUMX 0x), 


ques spécificités du TO7/70. 

Dans sa première partie, il 
nous présente le « système 
TO7 » (Matériel/logiciel/exten- 
sions). Notons que les renseigne- 
ments qu’il nous donne 
devraient se trouver sur un 
manuel technique accompa- 
gnant le TO7 ou, pour le moins, 
être disponible chez Thomson 
même. Ils sont très intéressants 
sur un plan technique : descrip- 
tion des PIA, schéma général de 
la mémoire. Quant aux fanas 
d’Assembleur, ils peuvent se 
réjouir : ils liront une étude très 
bien faite de douze sous- 
programmes du moniteur réali- 
sant la gestion des interfaces des 
périphériques. Signalons égale- 
ment les schémas des différents 
connecteurs et prise DB25 du 
TO7. 

La deuxième partie est un 
manuel de référence Basic TO7, 
où toutes les instructions et fonc- 
tions sont présentées classées par 
type d’utilisation. L’annexe 8, 
qui est un index des mots-clés du 
Basic, permet au lecteur de trou- 


SUMXY (>xy), SUM X 2 (>x°), 
et SUMY 2 (>y:). Notons que 
ces expressions sont des varia- 
bles dont on peut aisément, et 
d’autorité, changer les contenus. 
Cela permettra de ne pas réintro- 
duire de longues séries dont on 
connaît déjà les informations 
caractéristiques, ou même d’il- 
lustrer certains calculs : « que se 
passe-t-il si telle variable statis- 
tique évolue ? » 

Les fonctions proprement 
dites de calcul statistique sont les 
écarts types (population ou 
échantillon) et la régression liné- 
aire avec calcul des paramètres 
de la droite (a et b), de valeurs 
estimées (extrapolation) et, 
enfin, du coefficient (r) de 


ver rapidement l'information 
qui l’intéresse, 

Dans une troisième partie, 
Michel Oury nous permet de 
comprendre comment le TO7- 
gère son image graphique, et 
comment utiliser pour cela le 
PIA. 

Enfin, le principal intérêt de 
ce livre est le chapitre du 6809. 
Le lecteur, même néophyte en 
langage-machine, aura ici l’oc- 
casion de se familiariser avec ce 
micro-processeur, en étudiant la 
description de sa structure, de 
ses modes d’adressage et de son 
jeu d’instructions (le tout très 
bien expliqué avec schémas). 

En annexe, signalons les 
adresses remarquables du moni- 
teur (page 0, adresses des portes 
des PIA et des routines système). 

Un ouvrage utile donc, et por- 
tant bien son sous-titre (« Du 
Basic au langage-machine ») 
puisque, outre un manuel de 
référence Basic, l’utilisateur inté- 
ressé par l’Assembleur y trou- 
vera une mine de renseignements 
directement utilisables. 


JL EH 


corrélation. 

Tous les calculs s'effectuent 
sur 12 chiffres significatifs même 
s’ils ne sont visualisés que sur 10 
chiffres (arrondis). 

Le FX-750 P est aussi un ordi- 
nateur programmable en Basic. 
De ce point de vue, on retrouve 
le langage-type des poquettes 
Casio, avec dix zones program- 
mables indépendamment. Un 
Basic honnête mais sans sur- 
prise. L'éditeur de lignes 
demeure rudimentaire ; le con- 
trôle et diagnostic des erreurs est 
resté succinct. 

Pas de PEEK, pas de POKE 
dans ce Basic : la machine est 
« fermée » de ce point de vue, 
le langage-machine ne sera pas 
accessible. 

Concernant les périphériques, 
à côté des cartes de mémoire per- 
manente, on peut aussi connec- 
ter une petite imprimante ther- 
mique (20 colonnes) qui fait 
office d'interface. C’est par ce 
canal que l'on raccordera un 
magnétophone. Les prix : 
1 600 FF ttc pour l'ordinateur 
avec une carte de 4 Ko, 1 150 FF 
pour l’imprimante-interface K7, 
et il en coûtera 600 FF pour 
4 Ko supplémentaires. 

JCK 
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ARP 


DU CÔTÉ DES CLUBS 


Dans le département 
du Rhône 


Oullins, l’école primaire 
Moreaud accueille dans ses 
locaux les membres de l'OMI 
(Oullino Micro Informatique) 
qui vous invitent à les rejoindre 
et à participer à leurs activités 
tous les soirs de 18 à 20 heures. 
Leurs coordonnées sont les 
suivantes 
Association OMI 
Ecole Centre A 
93 rue de la République 
69600 Oullins 
Tél. : (78) 51 34 31 


Chez nos amis canadiens 


A SIAQ (Société d’Infor- 
matique Amateur du 
Québec), l’un des plus anciens 
groupes d’informaticiens ama- 
teurs de l’Est Canadien souhaite 
tisser un réseau de communica- 
tion entre les différents clubs. 
Son but est de favoriser les 
échanges d’expériences et d’in- 
formations, mais surtout, de 
créer avec les petits clubs éloi- 
gnés des liens qui les rendront 
moins isolés. 
Pour donner une nouvelle 


dimension à son ambitieuse 
entreprise, la SIAQ aimerait 
pouvoir entrer en contact avec 
des clubs français. 

Si vous souhaitez vous aussi 
découvrir de nouveaux hori- 
zons.. informatiques, vous pou- 
vez lui écrire : 

Société d'Informatique 
Amateur du Québec 
C.P. 9242 

Sainte-Foy 
P.Q.GI1V4B1 
Canada 


Exposition dans 
les Alpes-Maritimes 


U Centre Jeunesse, Culture 

et Loisirs de Mandelieu- 

la-Napoule (association loi de 

1901) se tiendra, début décem- 

bre, la première exposition que 

cette ville consacre à l’informa- 
tique de loisir. 

Cette manifestation dont l’en- 
trée est gratuite se déroulera le 
samedi 8 décembre, de 14 à 19 
heures, et le dimanche 9 décem- 
bre 1984, de 10 à 12 heures et de 
14 à 19 heures. 

CFCL 

802 boulevard des écureuils 
06210 Mandelieu-la-Napoule 
Tél. : (93) 49 10 12 


Faites-vous connaître. 


S i vous faites partie n club d’informatique, sans but lucra- 

tif, où l’on apprend CAMEROUN TOE 
vous recherchez de nouveaux ad AT et 
tence. En lisant votre adresse dans cOROOTERENRE 
lecteurs seront contents d'apprendre que vote pas trop 
loin de chez eux. 


PUBLICATION 
D'INFORMATIQUE 


Fe GRAND PUBLIC 


publications 


RECHERCHE 


JEUNE CHEF 
DE PUBLICITE 
H/F 


Il'aura pour mission de développer le nombre des 
annonceurs, de jouer un rôle de conseil auprès des 
clients, d'assurer le suivi des actions publicitaires. 
Il sera intégré à l'équipe de rédaction, participera 
activement à la vie du journal. Ce poste s'adresse à 
un candidat d'un bon niveau de culture générale, 
ayant déjà une approche de la micro-informatique, 
et si possible une première expérience dans une 
fonction pr 


Merci d'adresser lettre manuscrite, 
CV détaillé et prétentions sous réf. 1100 à 
Michèle RUDLOFF Sélé-CEGOS 
Tour Chenonceaux - 92516 BOULOGNE CEDEX. 


| [VIDE + 


SHOP 
du soft à prix micro !!! | 


LOGICIELS EDUCATIFS HATIER, INFOGRAMES, LORICIELS, VIFI-NATHAN | 


Jeux d'action, d'aventure, de réflexion. 


{Plus de 200 logiciels en démonstration sur vidéodisque.; 


TOUTES LES MARQUES : ADAM CBS, ALICE, ATARI, COMMODORE, 
ORIC-ATMOS, SINCLAIR, SPECTRAVIDÉO, THOMSON, MSX ET AMSTRAD. 


VENTE - 


LOCATION - ECHANGE 


+ 


50, rue de Richelieu, 75001 PARIS. Tél: 296.93.95 


Métro Palais-Royal. Du lundi au samedi de 9h30 à 19h Je désire recevoir gratuitement et sans 
251, bd Raspail, 75014 PARIS. Métro : Raspail 


engagement de ma part votre documen- 
tation sur la gamme de logiciels dispo- 
nibles. 


Je possède un micro de marque 


NOM 
| PRENOM 
| _ ADRESSE 


VILLE 
CODE POSTAL 


Je joins 2 timbres à 2,10 F pour frais d'envoi. 
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Stockage de programme sur vidéodisque 


ISQUETTES, cassettes et 
cartouches pourraient se 
retrouver bientôt en concurrence 
avec une nouvelle technique de 
stockage : le vidéodisque-laser. 
Prématuré ? Peut-être, mais 
le couplage  ordinateur- 
vidéodisque n’est résolument 
plus du domaine de la science- 
fiction. Une preuve de poids, le 
Japonais JVC (Victor Company 
of Japan) vient de lancer à 
Tokyo un nouvel MSX, le HC-7 
qui réserve bien des surprises. 
Vendu aux alentours de 3 400 F, 
le HC-7 est pourvu d’une fonc- 
tion surimpression-vidéo (ça 
devient classique) et dispose 
d’un autre atout, la compatibi- 


UN LIVRE 


Opérations arithmétiques 
dans les ordinateurs 
Ioan Dancea 

Editests 

Paris, 1984 

Broché, 170 pages 

Prix : 100 FF 


E prime abord, on pourrait 

s'étonner qu’il faille 170 
pages pour expliquer comment 
sont effectuées les quatre opéra- 
tions élémentaires (addition, 
soustraction, multiplication et 
division) dans les ordinateurs. 
Mais le sujet est en fait beaucoup 
plus vaste qu’on ne l’imagine, et 
l’auteur, d’ailleurs, ne prétend 
pas l’avoir épuisé. 

Comme toujours en informa- 
tique, les sujets apparemment les 
plus simples sont en fait très 
complexes. On aurait donc tort 
de croire que ce livre est facile 
à aborder, d’autant plus qu’il 
nécessite des connaissances de 
base en algèbre logique, en élec- 
tronique et en arithmétique 
binaire. Cela vient du fait que le 
sujet est à la frontière entre 
l'électronique et l’informatique. 
S’il est indispensable de posséder 
des bases en arithmétique binaire 
(en ayant, par exemple, déjà réa- 
lisé des prograinmes en langage- 
machine), des lacunes en électro- 
nique n’empêcheront pas le lec- 
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lité avec un lecteur de vidéodis- 
ques interactif. Le HC-7 prendra 
donc le contrôle du vidéodisque. 

Pour accompagner le HC-7, 
JVC a par ailleurs annoncé la 
commercialisation prochaine 
d’un nouveau lecteur vidéodis- 
que pourvu d’une RS 232 C et 
qui pourra se connecter sur la 
plupart des machines MSX. Le 
lecteur pourrait coûter aux envi- 
rons de 6 000 F. 

Quant aux programmes, on 
déclare chez JVC que de nom- 
breuses applications seront déve- 
loppées prochainement sur 
vidéodisque. Les consomma- 
teurs français devront toutefois 
patienter. Æ 


Opérations arithmét 
ds es orat 


Bar fon Dancez 


Este 


teur de comprendre les données 
exposées, mais seulement quel- 
ques schémas de circuits 
électroniques. 

Cela dit, bien qu’il ne soit pas 
destiné à tous les publics, le livre 
est passionnant. De très nom- 
breuses méthodes sont passées 
en revue, aussi bien celles qui 
sont utilisées dans les calculatri- 
ces de poche que dans les ordi- 
nateurs de grande puissance. 

Notons que les deux derniers 
chapitres exposent l’arithméti- 
que des nombres flottants et des 
nombres décimaux. Ils parais- 
sent un peu courts, car le sujet 
est plus complexe que dans les 
chapitres précédents, mais ils 
fournissent une bonne présenia- 
tion des techniques utilisées. 


TC 


Kodak : « clic-clac » 
disquettes 


ODAK, le roi de la photo 
a décidé de se lancer 
dans « l’aventure informati- 
que » et commencera avec des 
disquettes. Dès le début de l’an- 
née prochaine, des supports aux 
couleurs rouge et jaune de la 
société seront donc disponibles 
en format 8,5.25 et 3.5 pouces 
avec le choix de simple, double 
et même quadruple densité. 
Kodak a justifié cette décision 
par « un souci de diversifica- 
tion » et l'extension du marché 
des disquettes d’ici 1990 (plus de 
50 % de croissance), qui devrait 
alors représenter un chiffre d’af- 
faires de quelque 4 milliards de 
dollars. El 


UNE CASSETTE 


Logo Logic 1 
Cassette pour C.64 
et Vic 20 
Edité par No Man’s Land 
Prix : 120 FF 
| UNS | 
5 37 3 PT 


E logiciel Logo Logic 1 est 

fourni avec un fascicule 

de sept mini-pages au format 

d’une cassette. C’est peu, com- 

paré aux livres qui accompa- 

gnent en général les véritables 
Logo. 

Au premier abord, il semble 
que nous soyons en présence 
d’un Basic appauvri, baptisé lan- 
gage, et présenté comme un 
Logo, avec deux modes de tra- 
vail, les modes DIRECT et 
PROGRAMME. 


En DIRECT, nous disposons 
des instructions RUN, LIST, 
SAVE, … (qui nous rappellent 
un air connu) et TUE, avec en° 
prime, lors de l’utilisation de 
cette dernière, une sorte de coui- 
nement émis par la machine, il 
aurait été préférable de conser- 
ver NEW. 

On peut faire avancer un objet 
appelé TORTUE de 1 à 255 pas 
— on ne dépasse pas l’octet si 
facilement —, mais impossible 
de la faire reculer. La tortue peut 
pivoter vers la droite ou la gau- 
che mais uniquement à angle 
droit. DROITE 1, par exemple, 
la fait tourner vers la droite de 
90 degrés. 

Si les enfants connaissent très 
jeunes le triangle qu’ils utilisent 
fort bien pour dessiner une mai- 
son, la toiture de No Man's 
Land n’évolue que dans un uni- 
vers carré. C’est une faute grave. 

Abordons le second mode. 
Pour créer un programme, il 
faut d’abord, et comme en 
Basic, numéroter les lignes. Une 
fois terminé, celui-ci forme un 
tout, et non un ensemble de pro- 
cédures comme ce devrait être le 
cas pour un Logo. Une astuce 
permet cependant de définir un 
morceau de programme et de lui 
donner un nom. La « primi- 
tive» NOM est en fait un 
GOSUB déguisé. 

Quant aux paramètres, ils ont 
disparu, remplacés par 26 varia- 
bles globales (de A à Z). Cha- 
cune ne peut contenir qu’un 
nombre entier positif compris 
entre 0 et 255. La variation d’un 
contenu de variable n’est possi- 
ble que par incrémentation (+ 1) 
ou,décrémentation (— 1) et con- 
duit à un message d’erreur lors- 
que le contenu n’est pas compris 
entre les bornes 0 et 255. 

Les possibilités sont finale- 
ment assez limitées. Un exemple 
d’utilisation est proposé sous la 
forme d’une belle spirale carrée 
créée grâce au VA EN 
(GOTO ?), mais qui ne peut 
malheureusement s’arrêter sans 
message d’erreur car le SI 
n'existe pas. Difficile pourtant 
d’enseigner la logique de pro- 
grammation en oubliant le SI. 

Pas de Logo donc, et guère de 
« Logic », mais un simple jeu 
dont les résultats ne sont pas très 
motivants. Faire des cœurs sur 
des horizontales et des verticales 
est tout de même limité. Certains 
programmeurs ont réalisé en 
Basic des simulations de la tor- 
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tue Logo beaucoup plus sophis- 
tiquées et ils ont, eux, très vite 
renoncé à baptiser leur produit 
du nom de « mini-Logo ». 
Que les possesseurs de Vic se 
consolent en écrivant eux-mêmes 
un programme de simulation 
graphique, en attendant de pra- 
tiquer un vrai Logo sur le Com- 
modore 64. 
RD 


Pencil IT : 
un australien 
aguichant 


N semi-professionnel à 
1 500 F, il fallait être 
australien pour tenter le coup. 
C'est fait. La société Hanimex 
spécialisée jusqu’à présent dans 
les jeux électroniques et le maté- 
riel photo lance le Pencil II, 
ordinateur destiné à la fois à 
l'initiation, aux jeux, et aux 
« semi-pro ». 
Côté initiation, un Basic 
« classique » (simple, complet, 


CASSETTES ET 
DISQUETTES 


Haute résolution 
permet d’obtenir une 
résolution graphique de 
256 x 220 points 
Cassette pour ZX81 
Distribué par Direco 
Prix : 120 FF 


Origraph 

Logiciel de création 
graphique 

Cassette pour Oricl/Atmos 
Edité par Micro Futur 
Prix : 150 FF 


Logomonde 
utiliser Logo 
cassette pour TO7, TO7-70 
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évolutif selon le constructeur). 
Côté jeu, un nom-clef, le Pen- 
cil IT est compatible avec les car- 
touches Coléco. Pour le reste, 
d’indéniables qualités mais éga- 
lement des lacunes. Le Pencil 
revendique quatre générateurs 
de sons indépendants (dont un 
exclusivement pour les bruits), 
un Basic graphique « très com- 
plet » (il y en a donc deux), et 
une foule de périphériques dont 
une extension mémoire de 
64 Ko, une carte 80 colonnes, 
une RS 232 C et deux lecteurs de 
disquette. 

Enfin, Hanimex annonce la 
disponibilité de CP/M et la pos- 
sibilité de reprendre la plupart 
des logiciels fonctionnant sous 
ce système. L’astuce : transférer 
ces logiciels d’un autre ordina- 
teur via la RS 232. Reste que le 
clavier peut ne pas plaire à tous 
(encore ces touches-gomme), 
que la capacité mémoire en stan- 
dard est assez faible et que l’as- 
pect général de l’appareil inspire 
une certaine retenue. Mais il 
faut, bien sûr, tenir compte du 
prix de base, 1 500 F. CL] 


et MOS 
Edité par Hatier 
Prix : 185 FF 


Basic Français 

Cassette pour Oricl/Atmos 
Edité par Loriciels 

Prix : 180 FF 


Désassembleur 

Cassette pour Laser 200 
Edité par ERE Informatique 
Prix : 95 FF 


Auteur 

Cassette pour Oricl/Atmos 
Distribué par 
Microprogrammes 5 

Prix : 180 FF 


Editeur assembleur 
Cassette pour ZX Spectrum 
Edité par Eyrolles 

Prix : 120 FF 


Star 

Cassette pour Oric 

Distribué par 
Microprogrammes 5 

Prix : 180 FF 

Basic étendu 

Cassette pour Laser 200 
Edité par ERE Informatique 
Prix : 95 FF 
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ET ORDINATEURS “MSX” 
SANYO PHC 28: 2990F 
CANON V.20: 2980F 


SUPER BILLARD 
Exercez-vous au billard 
depuis votre fauteuil 


SPACE ATTACK 
Cherchez votre chemin 
dans un labyrinthe 


HOLE IN ONE 
Golf, plusieurs degrés 

de difficultés, simulation 
parfaite de votre jeu 


ROLLER-BALL 


Flipper électronique 


STEP UP 
Montez les étages 
de l'immeuble infernal 


M.S.X est une marque déposée par Microsoft U.S.A 


RC : PARIS B 307299305 SIREN 30729930500010 


SUPER SNAKE 
Le serpent diabolique dans 
un labyrinthe 


PICTURE PUZZLE 
Reconstituez les dessins 
du puzzle électronique 


BUTAMARU 


Ne cassez pas les œufs qui 
tombent du ciel 


ANTARTIC ADVENTURE 
Aventure d'un pingouin 
sur la banquise 


TIME PILOT 
Jeu de tir rapide 
aux commandes d'un avion 


CIRCUS CHARLIE 
Le cirque chez vous 
réalise des prouesses 


SUPER COBRA 
Mission dangereuse 
pour l'hélicoptère 


MONKEY ACADEMY 
Apprenez à compter 
en vous amusant 


HYPER SPORTS 


Le sport dans un fauteuil 


HYPER OLYMPIC 1 
Jeux Olympiques 1° partie 


HYPER OLYMPIC 2 


Jeux Olympiques 2ème partie 


COMIC BAKERY 
Lutte entre boulanger et 
ratons-laveurs dans la 
fabrication des croissants 


Mr CHIN 
Jouez à l'équilibriste 
avec les assiettes 


FRUIT SEARCH 
Devinez le nom des fruits 


DRAGON ATTACK 
Les dragons envahissent 
le ciel et la terre 


ACCESSOIRE SPECIAL CAT 
Graphic Trackball. Boule de commande dénommée « le 
chat » permettant une accélération fantastique des mou 
vements. || donne des résultats extraordinaires avec les 
programmes : FRUIT SEARCH, SPACE TROUBLE, MUE 
et surtout EDDY-2. A 


SPACE TROUBLE 


Bataille de l'espace 


HEAVY BOXING 
Combat de boxe contre 
l'ordinateur ou un adversaire 


PROGRAMMES SPECIAUX 
MUE 


Programmes d'enseignement musi 
cal assisté par ordinateur 


EDDY.2 

Programme évolué de conception 
graphique. Il offre grâce à la boule 
CAT des possibilités de D.AO. 
réservées aux systèmes profession 
nels 16 couleurs, effet de zoom, 
rotation, effacement, etc … 


on) : 


M.E. DEPT MSX 3, Rue Jean de Beauvais 


Veuillez m'expédier le ou les cartouches suivantes 


contre remboursement {France seulement) 
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LA GAZETTE DE LIST 


UN LIVRE 


Programmer en Modula-2 
Niklaus Wirth 

Traduit de l’anglais par 
Jacques André 

Presses Polytechniques 
Romandes (Eyrolles diff.) 
Lausanne, 1984 

Broché, 264 pages 

Prix : 184 FF 


N classique de 1982, déjà à 
sa seconde édition chez 
Springer Verlag. On ne présente 
pas Wirth, l’homme qui a fait 
sans aucun doute le plus pour 
une programmation intelligente 
depuis ses premiers travaux sur 
Algol W. Modula-2 (voir, dans 
le numéro 4 de LIST, Pascal et 
sa famille) est son dernier 
enfant, plus spécialement consa- 
cré à la multiprogrammation. 

On pourrait croire, à la lecture 
d’ouvrages de base comme le 
« Manuel de l’Utilisateur de 
Pascal » et le « Rapport révisé » 
(même auteur, Eyrolles 1978) à 
un texte froid et pour tout dire 
peu digestible. Pas du tout ; je 
ne sais si on a changé Wirth, 
mais son livre est, cette fois-ci, 
plus agréable à lire, avec de 
nombreux exemples — entre 
autres graphiques —, même si le 
sujet reste évidemment assez 
ardu. Bien entendu les pascalo- 
philes se sentiront tout à fait à 
l'aise devant cette extension 
apparemment assez puissante de 
leur outil de travail. 

Je ne sais si Modula-2 restera 
un outil professionnel d’infor- 
maticien ou s’il se développera 
en micro-informatique comme 
héritier de Pascal (voire de 
Basic) ; voilà en tous cas un bon 
moyen de se faire une idée de ses 
possibilités. 

AW 
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UN PETIT TOUR CHEZ LE LIBRAIRE 


Logo, manuel de référence 
Doris Avram, Tristan Savatier 
et Michèle Weidenfeld 
Editions Cédic/Nathan 
Paris, 1984 

Broché, 110 pages 


Prix : 79 FF 
Apprendre et appliquer 
le langage APL 
Bernard Legrand 
Editions Masson 

Paris, 1984 

Broché, 418 pages 

Prix : 179 FF 


Le langage B.A.L. 
Initiation et pratique 
Didier Lévy 

Editests 

Paris, 1984 

Broché, 124 pages 
Prix : 90 FF 


Langage-machine, Trucs et 
astuces pour ZX Spectrum 
Pascal Pellier 

Editions Eyrolles 

Paris, 1984 

Broché, 138 pages 

Prix : 89 FF 


Le système Prologue 
Version 2.2 

Pierre Giraud 
Editests 

Paris, 1984 

Broché, 212 pages 
Prix : 110 FF 


Le système CP/M pour Z80 
Fabienne et Philippe Gysel 
Editests 

Paris, 1984 

Broché, 190 pages 

Prix : 100 FF 


Au cœur du HX 20 
Laurent Besle 
Editions Eyrolles 
Paris, 1984 
Broché, 160 pages 
Prix : 130 FF 


L'Assembleur de l'Oric 1 et 
Oric-Atmos 

Marcel Henrot 

Editions du PSI 

Lagny, 1984 

Broché, 160 pages 

Prix : 90 FF 


J'apprends le Basic 
Michel Caut 
Editions ETSF 
Paris, 1984 
Broché, 128 pages 
Prix : 65 FF 


Le Basic par l’exemple 
Jean-François Schmid 

Les Editions d’organisation 
Paris, 1984 

Broché, 196 pages 

Prix : 91 FF 


Guide du Basic 

Commodore 64 - Vic 20 
Hergert Douglas 

Traduit par Jean-Louis Gréco 
Editions Sybex 

Paris, 1984 

Broché, 210 pages 

Prix : 78 FF 


Maîtrisez le MOS 
du Basic au L.M. 
Michel Oury 
Editions ETSF 
Paris, 1984 
Broché, 198 pages 
Prix : 86 FF 


Aller plus loin en Basic TO7 
Jean-Claude Wanner 
Editions Eyrolles 

Paris, 1984 

Broché, 294 pages 

Prix : 120 FF 


Passeport pour Basic TO7 et 
TO7-70 

Claudy Galais 

Editions ETSF 

Paris, 1984 

Broché, 158 pages 

Prix : 39 FF 


Clefs pour le Commodore 64 
Daniel-Jean David 

Editions du PSI 

Lagny, 1984 

Broché, 126 pages 

Prix : 100 FF 


Utilitaires pour ZX 81 
Marc Saal 

Editions ETSF 

Paris, 1984 

Broché, 122 pages 
Prix : 35 FF 


Programmation du 
Commodore 64 

lan Sinclair 

Traduit par Gérard Piloquet 
Editions Belin 

Collection Modulo 

Paris, 1984 

Broché, 126 pages 

Prix : 95 FF 


Pratique du TO7-70 
Henri Lilen 
Editions Radio 
Paris, 1984 

Niveau 1 

Broché, 190 pages 
Prix : 75 FF 
Niveau 2 

Broché, 174 pages 
Prix : 100 FF 


Logibul au pays de 
l'informatique 
Sheila Dvorchik et 
Lasley Wasylenki 
Editions Belin 
Collection Modulo 
Paris, 1984 
Broché, 112 pages 
Prix : 95 FF 


La transportabilité du logiciel 
Olivier Lecarme et 

Mireille Pellisier 

Editions Masson 

Paris, 1984 

Broché, 262 pages 

Prix : 140 FF 


Mathématiques pour 
micro-informatique 
Les nombres et leur 
traitement 

W. Barden 

Traduit par G. Revellin 
Editions Dunod 

Paris, 1984 

Broché, 128 pages 
Prix: 65 FF 


Pratique du: MO 5 

Henri Lilen 

Editions Radio 

Paris, 1984 

Niveau 1 

Broché, 190 pages 

PHX:7SFE 

Niveau 2 

Broché, 174 pages 

Prix : 100 FF = 
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LIST A TESTÉ 


LE BASIC DU ST ANDARD MSA 


N nombre croissant d'ordinateurs familiaux adoptent le standard MSX 

qui est en grande partie défini par le Basic MSX, autrement dit Basic 
Microsoft superétendu. La firme de logiciels, en mettant au point cette version 
du Basic, répondait à un appel d'offres lancé par l’industrie japonaise, 
désireuse de standardiser l'informatique familiale. 


C’est sur un ordinateur Yeno 

DPC 64 que le Basic MSX a été 
testé mais, en fait, la machine ici 
importe peu puisque ce langage est 
standard. 

Nous commencerons par l'éditeur 
qui, bonne surprise, est un modèle du 
genre. Tout d’abord, il est plein écran. 
Microsoft semblait un peu fâché avec ce 
type d’éditeur, mais cela fait 
aujourd’hui partie du passé. 


Bien gérer 


le graphisme 


Les touches de déplacement du cur- 
seur forment un pavé indépendant, il est 
même possible de déplacer le curseur en 
diagonale ! La touche INSERT met 
l’éditeur en mode insertion : seule une 
nouvelle pression sur cette touche ou sur 
une touche du curseur permettra d’en 
sortir. Le clavier de la machine sur 
laquelle j’ai effectué cet essai est du type 
AZERTY accentué. De ce fait, comme 
sur toute machine à écrire française, les 
chiffres sont obtenus grâce à la touche 
SHIFT ; mais celle-ci peut être bloquée 
avec la touche CAPS qui, de plus, est 
munie d’une diode rouge de contrôle. 


Les commandes paramétrables 


- DELETE, RENUM et AUTO sont pré- 


sentes et la longueur maximum d’une 
ligne est de 255 caractères. 


Le Basic MSX est extrêmement com- 
plet dans le domaine de la gestion du 
graphisme, Mise à part l’existence d’un 
macro-langage, dont nous parlerons 
plus loin, il n’y a rien de révolutionnaire 
mais (presque ?) toutes les commandes 
existant dans ce domaine sont ici pré- 
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sentes. Les classiques PSET et PRESET 
allument et éteignent un point ; POINT 
teste l’état d’un point ; LINE trace une 
ligne ; CIRCLE trace un cercle : 
PAINT remplit une surface avec la cou- 
leur désirée. Vous avez d’autre part à 
votre disposition tout ce que vous avez 
toujours voulu avoir pour manipuler les 
lutins (sprite en anglais). Grâce à la 
commande SCREEN, vous pouvez défi- 
nir le mode d’affichage : texte (24 x 40 
ou 24X 32), graphique ou graphique 
multicolore (256 X 192 en 16 couleurs) 
et la taille des lutins (8 X 8 ou 16 x 16 
points). SPRITE ON/OFF/STOP, 
SPRITES, PUT SPRITE et ON 
SPRITE GOSUB permettent de créer, 
de faire évoluer les lutins et d’en gérer 
les interactions. Leurs mouvements peu- 
vent s’effectuer sur 32 plans différents : 
une porte ouverte sur la troisième 
dimension. 


Parlons maintenant de ce que Micro- 
soft appelle «the graphic macrolan- 
guage » et qui permet le tracé de figu- 
res complexes. Un exemple vaut mieux 
qu’un long commentaire. Après passage 
en mode graphique, l’exécution de 
10 A$ = ‘‘R255D191L25SU191"’ 

20 DRAW A$ 
trace un cadre de la taille de l’écran. La 
chaîne de caractères stockée en A$ doit 


en fait être lue : RIGHT 255 (tracer 255 
points en allant vers la droite), DOWN 
191 (191 points vers le bas), LEFT 255 
et UP 191. Il est également possible de 
dessiner des droites obliques en définis- 
sant l’angle, et de travailler en coordon- 
nées relatives ou absolues. 


Un autre macro-langage fonctionnant 
selon le même principe donne accès aux 
fonctions sonores de l’ordinateur : 

10 A$ = ‘‘T250CDEFGAB”’ 

20 PLAY AS 

provoque l’émission de la gamme selon 
un tempo assez rapide (T250). Il est éga- 
lement possible de choisir entre huit 
octaves, et de déterminer la durée, le 
volume, l’enveloppe et l’attaque de cha- 
que note. A cela s’ajoute enfin l’instruc- 
tion BEEP qui produit un bip non 
modulable, 


Les noms de variables ne comportent 
au maximum que deux caractères signi- 
ficatifs, mais il existe quatre types de 
variables, un pour les variables de carac- 
tères et trois pour les variables numéri- 
ques. Les instructions DEFINT, 
DEFSNG, DEFDBL, DEFSTR ou les 
suffixes %, !, # et $ permettent de les 
déclarer selon chacun de ces types. Pas- 
sons en revue les trois types de variables 
numériques. 
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Le type entier code chaque variable 
sur deux octets, soit 16 bits. De ce fait, 
le nombre contenu dans une telle varia- 
ble est obligatoirement compris dans un 
intervalle de longueur 216 = 65536, cet 
intervalle va de — 32768 à 32767. Avec 
ce type de variables, les calculs sont plus 
rapides et la place occupée moindre. 


Le type simple précision autorise le 
codage de nombres en virgule flottante 
sur quatre octets. Les calculs sont effec- 
tués sur sept chiffres dont six sont 
ensuite stockés. 


Une mémoire 


dynamisée 


Le type double précision est celui que 
la machine adopte par défaut. Les cal- 
culs sont alors effectués sur 16 chiffres 
dont 14 sont finalement stockés. Les 
calculs faisant intervenir les fonctions 
transcendantales sont systématiquement 
effectués sur 16 chiffres, quel que soit 
le type des variables mis en œuvre ; seul 
le stockage final est susceptible de varier 
suivant ces types : le test 6 donne en 
effet les mêmes (piètres !) résultats, que 
les variables soient déclarées en simple 
ou en double précision (1). 


Mis à part le classique DIM, qui per- 
met la déclaration de tableaux de dimen- 
sion presque quelconque (une ligne ne 
doit tout de même pas dépasser 255 
caractères), il existe deux instructions 
très pratiques liées à la gestion des varia- 
bles : SWAP qui échange les contenus 
de deux variables (utile, entre autres, 
pour les programmes de tri) et ERASE 
qui annule une instruction DIM. Ce 
Basic permet donc une gestion dynami- 
que de la mémoire. 


Microsoft a beaucoup perfectionné le 
traitement des chaînes de caractères et 
le Basic MSX offre tout ce qui est néces- 
saire pour couper, localiser, décoder les 
chaînes alphanumériques. Signalons 
rapidement MID$, RIGHTS et LEFTS$, 
ainsi que l’instruction INSTR, moins 
courante, grâce à laquelle on peut détec- 
ter et localiser une chaîne de caractères 
à l’intérieur d’une autre chaîne plus 
longue. 


Il existe trois fonctions permettant de 
convertir les nombres de la base 10 à 
lhexadécimal, l’octal et le binaire ; 
l’exécution de PRINT HEXS$(15)}; 
 :OCT$(15);* ”’;BIN$(15) produira 
l'affichage de F 17 1111. Notons au 
passage que les préfixes &H, &O et &B 
permettent de travailler directement 
dans l’une de ces bases. 


(1) Voir Les dix tests de LIST, pages 68 et 69 de 
ce numéro. 
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Dans le domaine de la programma- 
tion structurée, nous remarquons que 
Microsoft n’a pas fait preuve d’audace 
particulière : pas d’instructions de struc- 
turation dérivée du Pascal, les sous- 
programmes se résument aux sempiter- 
nelles instructions GOSUB et RETURN 
et le passage d’argument doit toujours 
s’effectuer “manuellement” par l’inter- 
médiaire de variables. On trouve cepen- 
dant quelques instructions très pratiques 
pour contrôler le déroulement d’un pro- 
gramme. Ainsi ERROR permet à l’uti- 
lisateur de définir ses propres types 
d’erreur : 

10 ON ERROR GOTO 10000 
(::) 
100 IFX < 0 THEN ERROR 200 


(.….) 
10000 IF ERR = 200 PRINT‘X 
NEGATIF” 


Si X est négatif à la ligne 100, un 
branchement automatique à la ligne 
10000 produira l'affichage de X 
NEGATIF. 


| Des instructions 


pour les jeux 


Les instructions ON GOTO et ON 
GOSUB peuvent d’ailleurs fonctionner 
selon le même principe. Ainsi, ON KEY 
GOSUB provoquera un branchement à 
l’une des lignes spécifiées suivant la 
frappe d’une touche de fonction. 
Notons que KEY permet justement 
d’attribuer une séquence de touches à 
une des touches de fonction et que KEY 
LIST fait apparaître la liste de ces tou- 
ches suivie de leurs définitions. ON 


Différents Basic MSX disponibles en France 


Constructeur 
(ordre alphabétique)| 


STICK GOSUB est excellent pour pro- 
grammer les poignées de jeux (STICK 
retourne simplement la direction, 0 à 8, 
indiquée par la manette). Les pseudo- 
variables PDL et PAD permettent de 
tester la position d’une manette à mou- 
vement continu. ON STOP GOSUB 
provoque un branchement à la ligne spé- 
cifiée dès que l’exécution du programme 
est interrompue. Plus curieux : ON 
INTERVAL =... GOSUB provoque un 
branchement à la ligne spécifiée, de 
manière rythmique en fonction de l’in- 
tervalle de temps choisi. 


Toutes ces instructions peuvent être 
activées ou désactivées par des KEY 
ON/OFF, STOP ON/OFF, etc. 


Notons que, fidèle à son habitude, 
Microsoft n’autorise pas le program- 
meur à faire suivre un GOTO ou un 
GOSUB d’une expression algébrique : 
seule, la constante numérique est per- 
mise. On a beau dire que ON GOTO 
permet de combler cette lacune, c’est 
pourtant bien utile dans certains cas, et 
l’on connaît des Basic qui cumulent les 
deux possibilités. En revanche, THEN 
peut être suivi de ELSE. 


L’éventail des fonctions mathémati- 
ques est assez limité (COS, SIN, TAN, 
ATN, LN, LOG, EXP, SQR, MOD...) 
mais la précision est excellente (16 chif- 
fres), et l’on peut définir de nouvelles 
fonctions avec DEFFN. On obtient ainsi 
arc sin par la séquence : 

DEFFN ACS(X) = ATN (X/SQR (-X 
*X +1)) 

Les fonctions logiques AND et OR 
sont complétées par XOR (ou exclusif), 
NOT, IMP (implication) et EQV 
(équivalence). 


Un effort particulier a été produit 


Mémoire vive totale 
(en Koctets) 


Prix public 
(en FF) 


Canon 


3 000 64 


Sanyo L 


3 000 32 


YIS 503 Yamaha 


3 400 48 


YC 64 Yashica 


3 950 80 


DPC 64 Yeno 


3 450 


Mémoire morte 32 Koctets 


Langages 


Basic MSX, Assembleur du Z 80 


Variables 


Entiers de - 32 768 à 32 767 ; simple précision sur sept chif- 


fres dont six stockés ; double précision sur 16 chiffres dont 


14 stockés. 


Modes d’affichage 


Texte, 24 lignes sur 32 ou 40 colonnes ; graphique multico- 


lore, 64 sur 128 points et 256 sur 192 points en 16 cou- 
leurs ; lutins de 8 sur 8 ou 16 sur 16 points. 


Seule une partie de la mémoire vive totale annoncée est programmable en Basic. Pour 
en connaître la capacité, il faut faire FRE à la mise sous tension. 
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GOSUB* 
GOTO* 


H 
HEXS 


I 

IF* 

IMP 
INKEYS$* 
INP 
INPUT* 
INPUT # 
INPUTS$ 
INSTR 
INT* 
INTERVAL 
ON/OFF/STOP 


K 


KEY 

KEY LIST 

KEY ON/OFF 

KEY ON/OFF/STOP 


L 


LEFTS$ 

LENY* 

LET* 

LINE 

LINE INPUT 
LINE INPUT # 
LIST* 

LLIST 

LOAD 
LOCATE 
LOG* 

LPOS 

LPRINT 
LPRINT USING 


M 


MAXFILES 
MERGE 
MIDS 

MOD 
MOTOR 


N 
NEWY* 
NEXTY* 
NOT 


O 


OCTS 

ON ERROR GOTO 
ON GOTO* 

ON GOSUB* 

ON INTERVAL GOSUB 
ON KEY GOSUB 
ON SPRITE GOSUB 
ON STOP GOSUB 
ON STRIG GOSUB 
OPEN 

OR 

OUT 


P 


PAD 
PAINT 
PDL 
PEEK 
PLAY 


POINT 

POKE 

POS 

PRESET 
PRINT* 

PRINT USING 
PRINT # 
PRINT # USING 
PSET 

PUT SPRITE 


R 


READ* 
REM* 
RENUM 
RESTORE* 
RESUME 
RETURN* 
RIGHTS 
RND* 
RUN* 


S 

SAVE 

SCREEN 

SGN 

SIN* 

SOUND 

SPACES 

SPC 

SPRITE ON/OFF/STOP 
SPRITES 

SQR* 

STEP* 

STICK 

STOP* 

STOP ON/OFF/STOP 
STRIG 

STRIG ON/OFF/STOP 
STRINGS 

STRS$ 

SWAP 


T 

TAB 
TAN* 
THEN* 
TIME 
TRON 
TROFF 


U 
USR 


V 


VAL 
VARPTR 
VDP 
VPEEK 
VPOKE 


W 


WAIT 
WIDTH 


X 


XOR 
&B, &H, &O 


* Mots présents dans la plupart des Basic. Un programme écrit à l’aide de ces 
seuls mots peut être adapté très facilement d'un ordinateur à un autre (à condition 
de ne pas dépasser la taille de la mémoire). 
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Liste des mots du Basic MSX 


dans le domaine de la gestion des cas- 
settes et des fichiers : le jeu d’instruc- 
tions est en effet très fourni. Avec 
OPEN et CLOSE, on ouvre et l’on 
ferme des fichiers non seulement sur 
magnétophone, mais aussi sur l’écran 
texte, l’écran graphique, ou sur une 
imprimante. 


Une conception 


prudente 


Comme d’habitude, CSAVE et 
CLOAD permettent de sauvegarder et 
relire des programmes Basic alors que 
PRINT # et INPUT # en font autant 
pour les variables. 

e SAVE et LOAD assurent la sauve- 
garde et la lecture de programmes non 
compactés, c’est-à-dire en codes ASCII. 
e BSAVE et BLOAD en font autant, 
mais avec des programmes en langage- 
machine. 

e MERGE charge les programmes en 
codes ASCII en les faisant cohabiter 
avec les lignes déjà en mémoire. 

e CALL est une instruction assez ori- 
ginale : elle donne accès à de nouvelles 
fonctions provenant de cartouches de 
mémoire morte (MEM) enfichées. 


A côté des classiques PEEK et POKE, 
on trouve VPEEK et VPOKE avec les- 
quels on peut lire et écrire en mémoire 
vidéo. Cette dernière est en effet hors 
de portée des 64 Ko directement adres- 
sables par le Z80, il est donc nécessaire 
de changer de page. 


DEFUSR permet de définir l’empla- 
cement de dix routines en langage- 
machine (DEFUSRO à DEFUSR9). 
Elles pourront être appelées par 
USRO(X) à USR9(X) où X est un argu- 
ment entier quelconque qui sera trans- 


féré automatiquement dans le registre 
HL du Z80. 


Lors de la conception de ce Basic, la 
prudence a été de rigueur : le Basic 
MSX est effectivement étendu mais il 
n’a rien de révolutionnaire. Et s’il est 
attachant, il faut peut-être en rechercher 
la cause dans le poids des habitudes qui 
existent même dans un domaine de 
pointe comme l’informatique : quoi de 
plus rassurant pour un programmeur 
que d’apprendre qu’une tentative de 
standardisation repose sur le bon vieux 
Basic Microsoft ? 


Thierry LÉVY-ABÉGNOLI 
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ESPIONITE 


UELQUES lignes de Basic suffisent pour 
effectuer les transformations fondamentales 
de la cryptographie. Deux programmes (ici pour 
X-07) en fournissent la démonstration. 


Née de la cryptographie, notam- 

ment grâce à Turing, l’infor- 
matique a complètement bouleversé 
cette discipline, mais continue à en 
dépendre pour la protection de ses ban- 
ques de données. | 


L'histoire de la cryptographie répète 
à satiété le scénario de la victoire du 
canon sur la cuirasse : décideurs mal 
conseillés ou lésinant sur les moyens 
nécessaires, d’un côté et, de l’autre, suc- 
cès gros de conséquences des décryp- 
teurs grâce à un peu de génie, pas mal 
de chance, beaucoup de fautes de l’ad- 
versaire, et beaucoup d’inlassable 
labeur. Cette histoire est d’autant plus 
étrange que les chiffreurs disposent 
depuis longtemps de la protection invio- 
lable que constitue la clef aléatoire 
« une fois ». Totalement impuissante 
contre elle, l’informatique permet au 
contraire de créer et de stocker par mil- 
lions de caractères, d’utiliser et même 
d’effacer aussitôt après usage ces clefs 
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«une fois » un maximum de 


commodité. 


avec 


En attendant que l’on admette la 
nécessité de telles clefs, strictement aléa- 
toires, les chiffres les moins mauvais 
s’appuieront sur une ou plusieurs clefs, 
aussi longues que le message et jamais 
réutilisées bien entendu, mais seulement 
« pseudo-aléatoires » parce que créées 
de façon convenue à partir de clefs 
secrètes beaucoup plus courtes. 


Ici encore l’informatique intervient 
massivement, mais cette fois dans les 
deux plateaux de la balance. 


D'une part, elle dote les décrypteurs 
de fantastiques moyens de calcul per- 
mettant l’analyse de milliards d’hypo- 
thèses. De l’autre, elle met à la disposi- 
tion de tout un chacun d’excellents 
outils de chiffrement à bon marché : 


BARNOUIN , VITE ! 
LES PROGRAMMES 
Do X-07F! 


convenablement utilisé, un ordinateur 
de poche peut être aussi sûr que tous les 
codes ou machines à rotors qui traînent 
encore dans les chancelleries attardées 
ou les états-majors exotiques. 


On peut dégager certaines règles à ce 
sujet. 
e Matériel : n’importe quel ordinateur, 
même petit, disposant de préférence 
d’une petite imprimante et d’une dizaine 
de Ko de mémoire vive. 
e Logiciel : quelques lignes de Basic suf- 
fisent pour créer les clefs et effectuer les 
transformations fondamentales de la 
cryptographie, transpositions et substi- 
tutions. Un degré assez élevé de com- 
plexité, inacceptable quand on chiffrait 
à la main, devient alors souhaitable. 
Aucun inconvénient, par exemple, à 
meubler d’une cascade d’opérations à 
sens unique tout le temps nécessaire à 
la frappe ou à l'impression. 
e La mise en œuvre se réduit à l’entrée 
de la clef secrète et à la frappe du texte, 
avec impression de sa traduction (crypto 
ou clair) au fur et à mesure ou aussitôt 
après. 
e Erreurs : une erreur ponctuelle de 
frappe ou de transmission ne doit pas 
rendre indéchiffrable toute une portion 
de texte. 
e Sécurité : un système n’est acceptable 
que s’il est quasi impossible, non seule- 
ment de décrypter les messages (cela va 


TIENS! JAMES 
BON? NE KA PAS 


N° 5 - DÉCEMBRE 84 


Lignes du Lignes du 
programme de programme de Commentaires 
chiffrement déchiffrement 
làd4 làdet 6 Initialisation, entrée des paramètres 
5 Préparation de la transposition 

>) 10 Initialisation de la première séquence RND par 

K=RND(-X/Y) 
6à 8 Entrée, contrôle et affichage des textes 

8 11 Première phase de la substitution par 
2E4xRND(1) 

9 p) Initialisation de la deuxième séquence RND par 
K=RND(-XxY) 

9 10 Effacement de la clef par X =0 

10 et 11 8et 9 Transposition et deuxième phase de la substitu- 

tion par 1IE4*RND(1) 

12 Impression et découpage du crypto en groupes 
de quatre lettres 

Il et 12 Impression du clair et restitution des espaces 

13 12 Impression du groupe date.heure et de la lon- 

gueur du message 


Le programme dans ses grandes lignes 


de soi), mais aussi de reconstituer les 
clefs à partir de tous les autres éléments 
supposés connus : matériel et program- 
mes, procédures et collections de clairs 
et des cryptos correspondants. De plus, 
les clefs doivent être fréquemment 
renouvelées. 


Une transposition 


enchevétrée 


Avant de passer à la description d’un 
exemple, ajoutons que les procédés de 
chiffrement à clefs révélées, qui passion- 
nent les mathématiciens, mettent géné- 
ralement en œuvre des cascades d’opé- 
rations portant sur des nombres de 100 
à 200 chiffres, et ne paraissent donc 
guère convenir aux petits matériels. En 
outre, la moindre erreur de transmission 
brouille plusieurs dizaines de caractères. 


Techniquement, le procédé pro- 
grammé ci-après repose sur une trans- 
position enchevêtrée avec une substitu- 
tion complexe. 


A partir de la clef secrète (X) et d’un 
groupe date.heure (Y} attribué au mes- 
sage, on initialise successivement deux 
séquences « RND » qui génèrent des 
valeurs aléatoires. L’une fournit sous la 
forme 2E4*RND(1) les éléments de la 
première partie de la clef de substitu- 
tion, l’autre donne alternativement les 
éléments de la clef de transposition, sous 
la forme (L-I + 1}*RND(1), et ceux de 
la deuxième partie de la clef de substi- 
tution, sous la forme 1E4*RND(1). Le 
choix des multiplicateurs 1E4, 2E4 est 
lié à la grandeur limite des nombres 
entiers, + 32767 en Basic Microsoft. La 
transposition est un mélange aléatoire 
de l’ensemble du message. La substitu- 
tion est opérée par des additions modulo 
27, ce qui limite le clair aux majuscules 
et à l’espace (majuscules et signe @ dans 
le crypto). Il n’y a pratiquement aucun 
temps mort et les traductions s’impri- 
ment dès la fin de la frappe. 


Les textes, clair ou crypto, sont entrés 
au kilomètre en INKEY$. Il ne faut 
donc pas chercher à corriger les fautes 
de frappe, qui seront généralement de 
peu de conséquence. Si toutefois une 
faute lors de la frappe du crypto pro- 
voquait un décalage, il faudrait recom- 
mencer le déchiffrement. Le découpage 


pas assez de mémoire. 


MOD, et * (division entière). 


quelconque. Très utile parfois. 


de gamme suffit. 


Pour adapter les programmes à d’autres matériels 
Si votre ordinateur n’est pas un Canon X-07, vous ne devriez pas avoir de dif- 
ficulté pour apporter les modifications nécessaires. Voici ce qu’il faut savoir. 
° Diminuez le plafond de longueur (2999, lignes 1 et 5, chiffrement) si vous n’avez 


. Il est indispensable de disposer d'une initialisation de séquences RND repro- 
ductibles, ce qui est le cas de la plupart des machines. 
° En revanche, l'instruction INT permet de suppléer à l’absence de DEFINT, 


e Utilisez des IF... THEN si vous ne disposiez pas de grandeurs booléennes tel- 
les que (K = 0). Celles-ci valent — 1 sur le X-07 quand la condition est satisfaite. 
e INSTR(ZS$,A$) vaut bizarrement 1 et non 0 avec A$ =” *”, ZS$ étant une chaîne 


. Ilest difficile de se passer d'imprimante en cryptographie, mais un modèle bas 
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Cryptographie : 
Programme pour X-07 
Auteur Picrre Barnouin 
Copyright LIST et l'auteur 


Chiffrement 


L DEFSTRA:OEF INTB -K:CImB8(2399) 
INPUT'Prerarer IMPR'IMANTE,CLEr" 3x 
INPUT'OATE . HEURE : 
PRINT Taper Le TEXTE pus # 
K=RNDI-X/ T3 :FORI-OTO293939 

AZINKEYS :ONINSTRO" '#', AJIGOUTO6, 3 
B=117-ASCCA)+32*xCA="' ):[FB27 €) 1 THENG 
PRINTA; :SCI1)-=2E4KRND(II+B:NEXT 

9 K=RNOC-XXT):x-G:FOR:=CTO(-1 

18 K=itrCI-J)XRNOC11:8-BCK)t1E4KRND(] 

11 B(K)-B(11:A=-CHR$SC64-+-BNM0O 
2 LPRINTA;:IF3NO04-STHENLPR 
13 NEXT:CPRINT" “TE 


ji.nhmm';t 


1 5 KW Ni 


À um 


Déchiffrement 


GEFSTRA:DEF (NTB-K 


2 INPUT'Preporer IMPRIMANTE,CLEF "3x 

3 INPUT"'OATE.HELRE: ji.nhmm' it 

4 INFUT'LONGUEUR’ se eu rL-1 :DIMBEA D HEL)J 

5 FORI-@TOL :H(II=T INEXT -K=RNDE- XX] 

6 PRINT'Taper ie CRIPID :FÜRI-@TC 

? ASINKETS :ON[NSTR(! ù C7 

8 J=I+C(L-Ii+1)%XR L'EAREHCITEHE 

3 HCIJ=-K:BIKI=LE4XRNEC] r38-ASCCAIINEXT 

18 K=RNDC-X/T1:X-0:EORI-BTOL 

11 K=C2E4XRNOC1 rB( 11100127 -K-K 

12 LPRINTCHRS(G4-K)J;-NEXT :L PRINT"; TiT 
Un exemple de message 
[Cle{:1234 71254567 

DQQ0 TuAr GFRK FEPA FPLIF HONC GBUg HxQL 

LIAB MOTN TYJE WNXH NCLE WWPT MECYT ZOJP 

jDP@ FAHU UULR JAP xRIN MLHX PEUD GTNX 

OUXR UULIZ £Ban NC&T 200 L!TA BxKK 

Buy 14.1645  : 52 


Le même message, mais en clair 


SI TOUS CEUX DONT 
JAIENT ©E PENCRE LA CORiE DE PENDU N À 
AIT FLUS AUCUNE VERTE IL Y EN ALRAIT TR 
OP  BA&ERIES 14.165645 152 


UN LIT LES CHIrFRES 


automatique du crypto en groupes de 
quatre lettres permet d’éviter assez aisé- 
ment ce type d’erreur. On aura cepen- 
dant intérêt à limiter la longueur des 
messages à quelques centaines de carac- 
tères, les tronçons d’un même message 
étant dotés de groupes date.heure 
différents. 


On trouvera ici (voir ci-dessus) une 
description pas à pas du programme de 
chiffrement. Pour l’essentiel, le pro- 
gramme de déchiffrement effectue les 
mêmes opérations dans l’ordre inverse. 


-Pierre BARNOUIN 
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VIVENT LES PARAMÈTRES 


PARAMÉTRER L'IMPRESSION 


Le nez de Cléopâtre, s’il eût été paramétré, 
la face du monde en eût été changée. 
(Atiribué, peut-être à tort, à Blaise Pascal.) 


OUVERTURE d'un canal périphérique à partir 
‘un programme ne tient qu'à un code. Sur 
ere T'ouvre le canal du lecteur de 
casselte, 3 celui de l’écran, 4 celui de 
l'imprimante, 8 celui du lecteur de disquette, Très 
vite, pour l'impression comme pour toute autre 
opération, paramétrer devient une nécessité. 


Au Musée Archéologique, cer- 

tains ont peut-être vu un PET 
premier modèle. Il remonte au Paléosi- 
licien Inférieur. Grâce au carbone 14, 
on a pu le dater des alentours de 1979. 
Il comportait un clavier façon calcula- 
trice, un magnétophone intégré, et le 
tout était surmonté d’un chapeau pointu 
contenant neuf pouces d’écran. L’ordi- 
nateur apparaissait comme un tout indi- 
visible, et il fallait un réel effort pour 
en séparer les constituants (mentale- 
ment, bien sûr ; matériellement, un 
ouvre-boîte suffit). 


L'ordinateur 


et son entourage 


Avec d’autres matériels, plus ou 
moins récents, on se trouve devant une 
collection de petites choses à relier entre 
elles par des tas de ficelles. Pratique- 
ment, c’est la catastrophe majeure (sur- 
tout si on a un doberman). Pédagogi- 
quement, c’est capable de montrer à 
l'apprenti le plus attardé qu’un ordina- 
teur, c’est une Unité Centrale de Trai- 
tement — traduisez : une boîte noire — 
et que le reste, ce sont des périphériques. 
Ecran, clavier, imprimante(s), lecteurs 
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Vu au Musée Archéologique 


de cassettes, de disques durs ou mous, 
tout ça c’est du périphérique. 

A cet égard, la programmation des 
Commodore est d’une logique rigou- 
reuse. Vous voulez sortir quelque chose 
sur cassette ? Ouvrez un canal périphé- 
rique avec le code 1 pour le lecteur de 
cassette et sortez ce que vous voulez sor- 
tir avec des instructions PRINT #... 
Vous voulez sortir quelque chose sur 
imprimante ? Ouvrez un canal périphé- 
rique avec le code 4 pour l’imprimante 
et sortez ce que vous voulez sortir avec 
des instructions PRINT #... Vous vou- 
lez sortir sur disquette ? Sachez que le 
code du lecteur de disquette est 8. Pour 
le reste, les différences sont légères. 
Quant à l'écran, on apprendra sans sur- 


prise que l'instruction PRINT n’est 
qu’un raccourci d’un processus plus 
complexe qui consiste à ouvrir un canal 
périphérique avec le code 3 pour l’écran, 
et à sortir ce qu’on veut sortir avec des 
instructions PRINT #... 


Pour faire entrer un renseignement, 
c’est la même chose sauf que c’est le 
contraire : on ouvre un canal avec le 
code périphérique idoine, et on fait un 
INPUT #... Naturellement, on ne peut 
pas entrer depuis une imprimante ni sor- 
tir sur un clavier, mais l’INPUT est une 
entrée par l’écran, qui n’est qu’un rac- 
courci d’un canal ouvert sur écran et 
d’un INPUT-dièse. Si vous ne me 
croyez pas, essayez le programme 1, et 
pensez-y pour sauvegarder vos œuvres 
d’art cathodiques. 


Tout cela pour dire que, dès qu’on 
touche à un périphérique, d’une opéra- 
tion à l’autre, il y a plus de ressemblan- 
ces que de différences et qu’une fois de 
plus, nous sautera aux yeux l’opportu- 
nité de... pa-ra-mé-trer ! 


Un premier exemple simple pour 
commencer : sortir une table de multi- 
plication, comme dans les articles d’ini- 
tation. Si l’on veut l’avoir sur écran, on 
fera : 


100 N=7 

110 REM 

120 FOR I=1 TO 10 

130 PRINT I; “FOIS ;N;"="";14N 
140 NEXT I 


Si l’on veut la sortir sur imprimante, 
on fera : 
100 N=7 
110 OPEN 1,4 
120 FOR I=1 TO 10 
130 PRINT # 1,1; FOIS’;N; = "":1* 
N 
140 NEXT I 
150 CLOSE 1 


Si l’on a un programme un tantinet 
plus complexe, avec trois cent douze ins- 
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tructions PRINT, on les changera tou- 
tes en PRINT # .… Si, en revanche, on 
a prévu dès le début qu’on puisse vou- 
loir choisir entre l’écran et l’impri- 
mante, on peut éviter les trois cent 
douze modifications en se rappelant 
tout simplement que l’écran est un péri- 
phérique comme les autres, et qu’il 
porte le numéro 3 alors que l’impri- 
mante porte le numéro 4. On ajoute 
deux lignes et on modifie la ligne 110 : 

10 INPUT‘‘ECRAN OÙ IMPRI 

MANTE”;P$ 


©: 
Ouvrir un canal périphérique 


Programme 1 


120 FOR J=i TO 29 

130 YSINTIPNDU ZE +ES 1 

149 PRINT CHOS(X 1: 

ISÈÛ NEXT J 

60 PRINT 

70 NEYT I 

FE0 PRINT IPRINT'LECTURE DE L'ECRAN'PRINT 
136 DIM A#(20 

200 OPEN %.3SEM OUVERTURE D'UN CATIAL 
ECFAN 

216 PRINT'Chome]" 

220 FOR 1=° TO 20 

230 INPUT#T,AS(INREM ENTREE DEPUIS L'ECRAN 
240 NEXT I 

250 FOR T=0 TO 1O0OINEXT T 


26 PRINT:PRINT:PRINTIPRINT'RECRITURE DE 
L'ECRANMPRINT 

270 FOR 1=1 TO 20 

289 PRINT AI) 


290 NMEXT I 
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20 P=3:IF LEFTS$(P$,1)= ‘1? 
THEN P=4 

100 N=7 

110 OPEN 1,P 

120 FOR I=1 TO 10 

130 PRINT#I1,1; FOIS”’;N;‘ =”; 
IxN 

140 NEXT I 

150 CLOSE 1 


Souvent, l’imprimante fait 80 colon- 
nes de large, et l’écran 40. Parfait, on 
paramètre aussi la largeur d’affichage. 
Si le programme doit séparer divers élé- 
ments par un trait horizontal sur toute 
la largeur, on aura dans les initialisa- 
tions : 

30 LA =39:IF P=4 THEN LA=79 

et dans le cours du programme, le trait 

sera tracé par : 

500 FOR I=1 TO LA:PRINT #1, 
“_%::NEXT I'PRINT#H 


Echanger 


ses programmes 


.… Encore une variable ! Et quand il 
s’agit de mettre un titre en valeur, à 
l’écran, on donne dans l’inversion 
vidéo ; sur papier, il ne faut pas abuser 
si l’on tient à sa tête (d’impression). En 
revanche, les caractères expansés sont 
du plus bel effet. Or, l’inversion vidéo 
est déclenchée par un CHR$(18) et s’ar- 
rête sur un CHR$(146) ; les caractères 
expansés de l’imprimante sont déclen- 
chés par un CHRS(1) et s’arrêtent sur 
un CHR$(129). Qu’à cela ne tienne. 
Dans les initialisations : 

30 CI$=  CHRS$(18):C0$ — CHRS(146) 
IF P =4 THEN CI1$ = CHR$(1):CO$ = 
CHRS$(129) 

et dans le cours du programme, le titre 
à mettre en valeur sera écrit par : 
500 PRINT+#H1,CO$; “TITRE” ;CI1$ 


Vous commencez à entrevoir les éco- 
nomies de programme que l’abus des 
constantes empêchait de faire ? 


Quand on échange des programmes 
avec des correspondants, ils ne sont pas 
à côté de vous pour vous expliquer com- 
ment ils veulent que vous répondiez à 
telle question, ou ce qu’il faut entendre 
par telle autre. La meilleure solution : 
un programme supplémentaire sur la 
cassette ou la disquette, constitué d’un 
paquet de PRINT pour apporter des 
informations sur le contenu de l’autre 
programme. Là encore, on peut souhai- 


TAB se meurt, TAB est mort 

Le principe qui veut que PRINT-dièse 
et PRINT soient équivalents, surtout si 
Pon a ouvert un canal de sortie sur écran 
connaît une limitation notoire autant 
qu'irritante, le TAB. 

Quand on fait un PRINT normal, 
donc sur l’écran, un TAB est un TAB. 
C'est-à-dire qu’en faisant : 

100 PRINT ‘‘ZOZO”’’; 
110 PRINT TAB(10); ‘HULK’; 
120 PRINT TAB(20);‘‘PROTZ”’ 

ZOZO s'affiche en colonne 1, HULK 
en colonne 10 et PROTZ en colonne 20. 

Mais, quand on fait un PRINT-dièse, 
un TAB n’est plus un TAB, mais un 
SPC?” : 

90 OPEN 1,4:REM SORTIE IMPRI 
MANTE 

100 PRINT#H1,‘ZO0ZO”’; 

110 PRINT#H1,TAB(10); HULK”; 

120 PRINT#1,TAB(20);‘‘PROTZ’ 

130 CLOSE 1 

ZOZO s’imprime en colonne 1], certes, 
mais HULK, au lieu de s’imprimer en 
colonne 10, va s’installer en colonne 14 
(longueur de ZOZO + 10), et PROTZ en 
colonne 38 (14+longueur de 
HULK + 20). En d’autres termes, le TAB 
ne compte plus les espaces à partir de la 
marge gauche, mais à partir de la der- 
nière position imprimée, bref, il imprime 
le nombre d’espaces compris entre 
parenthèses. 

Le constructeur est heureux de vous 
offrir la connaissance approfondie du 
traitement des chaînes de caractères que 
ne manqueront pas de vous apporter les 
heures passées par vous à pallier ces 
insufficances. 

Reconnaissez que ça l’affiche mal ! 


ter le lire sur l’écran ou, si l’on a une 
imprimante, le tirer une fois pour tou- 
tes : c’est plus commode à consulter 
pendant que l’autre programme tourne. 
On peut facilement concilier les deux : 
10 INPUT‘ECRAN OÙ IMPRI 
MANTE”;P$ 
P=3:C1$ = CHR$(18):CO$ = 
CHRS$(146):C$ = CHR$(13) 
IF LEFT$(P$,1)=""1"” THEN 
P=4:C1$ = CHR$(1):CO$ = 
CHRS$(129):C$ = CHR$(32) 
OPEN 1,P 
PRINT C1$;‘TITRE’”’;C0$ 
PRINT HI, QUARANTE CAR 
ACTERES AU PLUS...”’;Cf$; 
130 PRINTHI, QUARANTE AU 
TRES CARACTERES AU 
PLUS::."? 
140 PRINTHI, QUARANTE CA 
RACTERES AU PLUS...’”’;C$; 
150 PRINTHI, QUARANTE AU 
TRES CARACTERES AU PLUS 


20 


30 


100 
110 
120 


500 CLOSE 1 
On a déjà vu le rôle de C1$ et de COS. 
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VIVENT LES PARAMÈTRES 


PARAMÉTRER L'IMPRESSION 


Programme 2 


106 INPUT"ECRAN OÙ IMPRIMANTE "5P# 
130 LE=33:NP=3 

120 1F LEFT#(PS#,1)="1" THEN LE=80:NP=4 
130 OPEN 1,NP 

140 : 

150 READ L$ 

160 XXF=XXS+LS 

170 IF LEN(XX#I<LE THEN 210 

180 IF Lé="#" THEN 280 

190 GOTO 150 

200: 

216 FOR ISLE TO 1 STEP -] 

220 IF MID#(XX#,1,1)=" " THEN L=l:I=1:GOTO 240 
230 NEXT'I 

240 PRINT#TLEFTS#(XXS,L-1) 

250 XXS=MID#(XXE,L+11 

260 GOTO 170 

270 : 

280 PRINT #1,LEFT#(XXS#,LEN(XXE)-1) 


230 CLOSE 1:END 


C$ est présent une ligne sur deux et suivi 
d’un point-virgule. Lorsque la sortie se 
fait sur écran, C$ contient CHRS$(13), 
un retour-chariot, et les quarante autres 
caractères s’inscrivent sur la ligne sui- 
vante. Mais lorsqu'on sort sur impri- 
mante, C$ contient CHRS(32), un sim- 
ple espace, suivi d’un point-virgule : les 
quarante autres caractères s’inscriront 
sur la même ligne. 


310 DATA "IL Y A CERTAINES CHOSES QUI 
N'ONT L'AIR DE RIEN MAIS QUE L'ETRE " 

320 DATA "HUMAIN N'ACCOMPLIT QU'AVEC 0E 
GROSSES DIFFICULTES, ON TROUVE MEME “ 

330 DATA "CERTAINES ACTIVITES, APPAREM 
MENT SIMPLES COMME BONJOUR, QUI SONT " 

340 DATA "PRATIQUEMENT IMPOSSIBLES A EF 
FECTUER. AINSI PAR EXEMPLE (MAIS CET" 

350 DATA "EXEMPLE N'A PAS ETE CHOISI A! 
HASARD), DIFE N'IMPORTE QUOI. " 

360 DATA "QUELS QUE SOIENT LES EFFORTS 
QUE L'ON CONSENT ET LES PRECAUTIONS " 

370 DATA "DONT ON S'ENTOURE, CE QUE L'ON 
DIT À TOUJOURS UN SENS." 


380 DATA * 


Quelques pistes pour des améliorations 


Il faut penser à terminer chaque ligne de DATA par un espace avant de fermer 
les guillemets, à moins de le mettre au début de la ligne suivante. Si l’on pose en 
principe qu’un mot ne sera jamais coupé dans les DATA, le programme peut-il s’oc- 
cuper de ces espaces ? 

Le texte sort sous forme de pavé. On convient de terminer une ligne de DATA 
par un signe donné (la flèche à gauche, CHRS$(9$), par exemple) lorsqu'on veut qu’elle 
termine un paragraphe. Le programme peut-il se charger de forcer un passage à la 
ligne, sans imprimer la flèche ? 

En cas de texte particulièrement long, il va défiler sur l’écran sans qu’on ait le 
temps de le lire, ou va s’imprimer sur les pliures du papier de l’imprimante. On doit 
pouvoir installer un compteur de lignes qui, si la sortie se fait sur imprimante, se 
chargera du saut de page en imprimant six lignes vides lorsqu'une feuille sera rem- 
plie, et se remettra à zéro ; et qui, si la sortie se fait sur écran, affichera sur la der- 
nière ligne un message du genre “FRAPPEZ RETURN POUR LA SUITE”, et arré- 
tera le défilement tant que la touche n’aura pas été enfoncée. 

Ajouter une ou deux lignes testant, par quelques PEEK judicieux, si l’ordinateur 
sur lequel tourne le programme est un Vic 20. Dans l’affirmative, l'affichage passe 
immédiatement à 23 lignes de 22 caractères, au lieu de 25 lignes de 40. Même test 
pour repérer le CBM 8000, avec passage spontané à 80 colonnes. 

Trouver les deux lignes de Basic qui manquent pour transformer ce bref programme 
en un combiné de Visicalc, Wordstar et Multiplan, qui joue raisonnablement aux 
échecs et sache préparer un thé décent, ce qui est rare. 
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Le procédé est assez rudimentaire et 
ne demande qu’à être amélioré. Imagi- 
nez un peu que le texte à afficher figure 
dans le programme sous forme de 
DATA, et soit ensuite découpé par ce 
programme à une longueur que vous 
aurez fixée, et que vous pourrez faire 
varier en modifiant la valeur d’une 
seule... variable. Soit LE la largeur de 
l'écran ou la largeur d’une ligne de votre 
imprimante, et NP le numéro du péri- 
phérique de sortie, 4 pour l’imprimante 
ou 3 pour l’écran. 


Si vous voulez afficher sur 15 colonnes, 
il n'y a, là encore, qu’un chiffre à chan- 
ger. Le programme 2 peut constituer un 
point de départ pour vos méditations. 
Vous commencez par améliorer un 
embryon, et puis vous finissez auteur du 
meilleur traitement de texte de l’année. 


Elles sont nombreuses, les améliora- 
tions qu’on peut apporter (voir encadré 
“Quelques pistes pour des améliora- 
tions’”). Chacune d’elle revient à com- 
pliquer le programme, à l’alourdir tant 
parfois qu’il ne tourne plus, la correc- 
tion d’une erreur en entraînant souvent 
dix autres. Alors, vous pestez un brin, 
vous dites que c’est complètement niais, 
l'informatique, et puis le lendemain, 
vous vous apercevez que le travail mal 
fait par douze lignes peut être bien fait 
par une seule, mieux placée et tellement 
simple qu’elle sait traiter trois cas au lieu 
d’un seul. Alors, c’est drôlement 
chouette, la programmation, et puis, 
tiens, si j’essayais de demander au pro- 
gramme de me faire... 


C’est reparti ! Mais rappelez-vous : le 
principe de base est simple, il consiste 
seulement à laisser l’ordinateur faire 
votre travail. 


François J, BAYARD 
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PRÉCISION 


LA GRANDE MISÈRE 
DES FONCTIONS INVERSES 


À précision des ordinateurs doit être 

interprétée avec beaucoup de prudence. Si tel 
modèle est réputé calculer avec 13 chiffres 
significatifs par exemple, cela signifie en général 
que les opérations élémentaires, telles que le 
produit de deux nombres, sont effectuées avec 
15 chiffres. Mais il n’en va pas de même pour 


toutes les fonctions. 


Dans un ordinateur, les fonc- 

tions mathématiques ne sont pas 
toutes logées à la même enseigne. Pour 
certaines, la précision laisse à désirer. 
Souvent même, cette précision diffère 
sensiblement entre une fonction et son 
inverse. Rappelons que si une fonction 
appliquée à une variable x donne pour 
résultat y, alors la fonction inverse 
appliquée à y donne pour résultat x. 
Ainsi l’inverse de y = log x est x — 
10’ ou x = antilog y (les deux symbo- 
les sont équivalents). Par exemple, si log 
2 = 0, 30103, alors 2 = 10 * ® = 
antilog 0,30103 (1). 


Les valeurs de ces fonctions inverses 
sont parfois — pour ne pas dire géné- 
ralement — particulièrement maltraitées 
par les ordinateurs. Cette constatation 
peut surprendre, mais elle a une expli- 
cation, sinon une excuse : le calcul 
interne de la fonction directe et celui de 
la fonction inverse homologue n’obéis- 
sent généralement pas au même algo- 
rithme et les précisions correspondan- 
tes n’ont aucun lien entre elles. Il faut 
simplement croire que les constructeurs 
attachent plus d’importance aux fonc- 


(1) Nous désignons les logarithmes décimaux par 
log, les antilogarithmes décimaux par antilog et 
les logarithmes naturels par In. 
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tions élémentaires (logarithmiques, tri- 
gonométriques, hyperboliques) qu’à 
leurs inverses. On trouvera, dans le 
tableau 1 (page suivante), quelques 
exemples concernant les antilogarithmes 
décimaux. 


La question qui vient alors à l’esprit 
est la suivante : disposant d’une table 
de logarithmes acceptable et d’une table 
d’antilogarithmes médiocre, peut-on se 
servir de la première pour « réparer » 
la seconde ? La réponse est oui. 


Un bon 


aller retour 


Pour effectuer cette réparation, il est 
possible d’établir une méthode très 
générale, applicable à chaque machine 
et à chaque fonction inverse, et fondée 
sur un phénomène que vous avez certai- 
nement eu l’occasion d’observer vous- 
même. En Basic, faites afficher SQR(7) 

A2, ce qui correspond à (7 = 7. 

L’écran indique probablement 7 (il 
faut l’espérer). Mais si vous entrez SQR 
(7) A2 - 7, il est presque certain que 
l’écran indiquera autre chose que ce 
qu’on attend, c’est-à-dire zéro. Sur le 
PC-1211, par exemple, il indique - 1,5 
E - 10 alors que sur le TRS-80, il indi- 
que 1,43051 E-06. Ces résultats, incon- 


grus, sont généralement accueillis avec 
un brin de condescendance, alors qu’ils 
méritent tout notre respect, car ils for- 
ment un outil formidable que nous n’al- 
lons pas nous priver d’exploiter. 


Ecrire SQR(7)A2-7, c’est mesurer 
l'erreur affectant une variable (en l’oc- 
currence 7) lorsqu'elle effectue un aller 
retour entre une fonction (racine carrée) 
et son inverse (carré). Nous appellerons 
cette erreur « écart aller retour » et nous 
la désignerons par D. 


Ce qui est intéressant, c’est l’ensei- 
gnement que l’on peut tirer de ce para- 
mètre : puisqu'il mesure un écart aller 
retour, si l’écart aller est nul (ou pres- 
que nul), il faut l’imputer intégralement 
au retour et inversement. Pour revenir 
à notre point de départ, mesurons D sur 
un trajet aller retour antilogarithme - 
logarithme - antilogarithme. Si le calcul 
du logarithme est correct, D mesure l’er- 
reur commise sur l’évaluation de l’an- 
tilogarithme et représente donc la cor- 
rection à apporter au résultat. 


Le programme qui suit et l'équation 
qui lui correspond donnent une illustra- 
tion respectivement informatique et 
mathématique de cette interprétation. 
Ils prennent pour exemple l’évaluation 
de la correction à apporter au calcul de 
x = antilog 0,778 151 250 4. La 


machine utilisée est un PC-1211, mais 
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le principe est valable pour toute autre 
machine, à condition qu’elle traite cor- 
rectement les logarithmes, même si elle 
maltraite les antilogarithmes. 


Les résultats sont indiqués chiffres de 
garde compris. Pour les mettre en évi- 
dence, écrire l’opération à effectuer et, 
avant d’appuyer sur la touche ENTER, 
soustraire les deux premiers chiffres 
significatifs du résultat dont on connaît 
l’ordre de grandeur. Appuyer alors sur 
la touche ENTER : l'écran indique les 
10 chiffres suivants. Par exemple, pour 
mettre en évidence les chiffres de garde 
de antilog 0,107 209 969 6, taper : 

10 À . 1072099696 - 1.2 

Le résultat apparaît : 7,999999983 
E-2. Ce sont les 10 derniers chiffres du 
résultat. 


Les programmes permettant de calculer 
D sont extrêmement simples. Pour le 
calcul des antilogarithmes décimaux, on 
a le programme 1 : 


500 INPUT Y 

510 X = 10 A Y 

520 D = X -10 À LOG X 
530X = X + D 


Ce programme est dépourvu d’affi- 
chage. Cette procédure serait illusoire, 
car même les machines qui calculent 
avec 13 chiffres n’en affichent généra- 
lement que 10 et l'incidence de la cor- 


rection n’affecte souvent que les chif- 
fres de garde, non affichés. L'essentiel 
est de retenir que Y désigne le nombre 
dont on calcule l’antilogarithme, qui se 
trouve en ligne 510 avant correction et 
en ligne 530 après correction. On peut 
également écrire d’une manière plus 
compacte : 

X = 10 A Y + (10 À Y - 10 À LOG 
(10 À Y})) 

formule qui donne directement l’antilo- 
garithme corrigé et dont la partie con- 
sacrée à la correction ne consomme que 
18 octets (résistez à la tentation de 
«simplifier » cette expression en 
regroupant les deux termes 10 À Y, 
sous peine de provoquer des erreurs 
d’arrondi). 


Deux types 


de machines 


Le programme 1 est destiné aux 
machines dont les précisions de calcul 
et de stockage sont identiques ; nous 
dirons que ces machines sont de type A. 
Mais beaucoup de machines, que nous 
appellerons de type B, perdent une par- 
tie des derniers chiffres significatifs en 
stockant les résultats dans leurs mémoi- 


res. Aïnsi le PC-1211 calcule avec 12 
chiffres mais ne stocke en mémoire et 
ne restitue que 10 chiffres. Pour les 
machines de ce type, la formule que 
nous avons vue reste valable (à condi- 
tion de supprimer X =) et nous obte- 
nons le programme 2 : 

500 INPUT Y 

Si0 X = 10 A Y 

520 D = 10 À Y -10 A LOG (10 À Y) 
530 A = I0AY -X + D 


Ce programme retourne la valeur 
affinée de 10 A Y en deux parties : X 
est la valeur brute extraite de la mémoire 
X (généralement identique à l’affi- 
chage) ; A est la correction globale à 
ajouter à X, positive ou négative, égale 
à la somme des chiffres de garde et de 
la correction D. 


Si le programme 2 est intégré à un 
programme ou s’il est traité en sous- 
programme, après l'exécution de la 
ligne 530, on remplacera X par X + A. 


Seuls les antilogarithmes des nombres 
inférieurs à 1, sont justiciables de la 
méthode décrite. Pour les nombres 
supérieurs à 1 ne traiter que leur partie 
décimale. Par exemple, pour calculer 
antilog 7,35, il suffit d'écrire antilog 
7,35 = 10° X antilog 0,35. 


Si vous utilisez les programmes 1 ou 
2, filtrez donc vos entrées pour n’intro- 


Tableau 1 ee 
Antilogarithmes décimaux PC-1211 Co TC | 
Sans correction Après correction Sans correction Après correction 
= | TT 

Valeur réelle Valeur Erreur Valeur Erreur Valeur Erreur Valeur Erreur 

ÿ de de x sur 12° de x sur 12° de x sur 13° de x sur 13° 

x = antilog y (1) chiffre (1) chiffre (1) chiffre (1) chiffre 

_ = 5 - 
0,107 209 969 6 1,279 999 999 | 858 92 83 - 3 86 0 …856 - 3 858 -1 
0,204 119 982 7 1,600 000 000 ! 162 38 13 — 3 17 +1 159 — 3 162 0 
0,301 029 995 7 2,000 000 000 165 87 16 - | 17 0 162 - 4 166 0 
0,397 940 008 7 2,500 000 000 1 160 9% [E) - 3 16 0 154 - 7 159 -2 
0,477 121 254 7 2,999 999 999 | 864 18 83 — 3 87 + 854 -10 863 -] 
0,602 059 99] 3 3,999 999 999 ! 742 46 69 - $ 16 +2 732 - 10 748 +6 
0,698 970 004 3 4,999 999 999 585 32 53 — 6 58 - 569 - 16 589 +4 
0,778 151 250 4 6,000 000 000 | 225 97 16 - 7 25 +2 202 - 24 7226 0 
0,845 098 040 0 6,999 999 999 [770 21 66 -]] 78 + 144 | -26 779 +9 
0,903 089 987 0 8,000 000 000 1 148 40 14 il 16 +] 113 -35 145 -3 
0,954 242 509 4 8,999 999 099 1 185 06 12 — 7 20 + 143 -42 188 +3 
0,991 226 075 7 | 9,800 000 000 ; 169 36 07 — 10 18 +] 122 —47 171 +2 
(1) Valeur calculée par la machine, chiffres de garde compris. Afin de ne pas surcharger le tableau, seuls les derniers chiffres significatifs sont indiqués. Les chiffres 


Omis sont identiques à ceux situés à gauche du pointillé de la deuxième colonne. 
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duire que des nombres inférieurs à 1, en 
mémorisant l’exposant à appliquer. 
Pour couvrir tous les cas, insérez les 
lignes : 

eS0SE = INTY:Y = Y-E 

e pour les machines de type A 

5355X = X%*xI0AE 

e pour les machines de type B 
535X=X+I0AE: A =A%#I0AE 
Et si vous ne craignez pas les instruc- 
tions-fleuves, la première formule qui 
donnait X devient : 

X = (10 A (Y-INT Y) + (10 À (Y- 
INT Y)-10 A LOG(10 À (Y-INT Y) 
))) + 10 À INT Y 


Elle couvre tous les cas, sans surcon- 
sommation de mémoire, et tous les types 
de machines, tout au moins ceux que 
nous avons essayés (pour les machines 
de type B, supprimer X =). 

Pour élargir notre étude, nous avons 
adapté ces formules à une machine dont 
le langage est aux antipodes du Basic : 
la TI-58 C, programmable en AOS 
(Algebraic Operating System). La for- 
mule de correction devient très simple. 
Pour obtenir un antilogarithme déci- 
mal, remplacer INV log par : 

INV log + (CE - log INV log)) 


Cela ne coûte que neuf pas de pro- 
gramme par rapport à l’instruction nor- 
male (la dernière parenthèse, fermée 
mais non ouverte, remplace le signe =, 
à éviter si la formule doit être traitée en 
sous-programme). 

Pour les valeurs supérieures ou infé- 
rieures à l’unité, utiliser la formule : 
RCL 0 INV Int INV log + (CE - log 


INV log)) x RCL O0 Int INV log EE 
INV EE) 


Tableau 2 
Exponentielles 


dans laquelle le nombre introduit est 
supposé être en mémoire 0 (zéro). Là 
encore, les parenthèses fermées mais 
non ouvertes correspondent au signe =. 


Les résultats obtenus à l’aide de la 
méthode décrite sont consignés dans le 
tableau 1. Les deux premières colonnes 
ne constituent qu’une table d’antiloga- 
rithmes à 15 chiffres servant de repère. 
Les autres colonnes indiquent les valeurs 
des antilogarithmes calculées par le 
PC-1211 et la TI-58 C, avec les erreurs 
sur le dernier chiffre significatif, avant 
et après correction. On peut constater 
que dans la quasi-totalité des cas, les 
erreurs produites par les machines sont 
largement absorbées. 


On peut songer à transposer cette 
méthode de correction aux antilogarith- 
mes naturels, ceux qui correspondent 
aux logarithmes naturels, In : y = In x 
est équivalent à x — e* (prononcer 
« exponentielle de y ») et peut encore 
s’écrire x = antiln y. Cette transposi- 
tion est inutile sur la TI-58 C, qui cal- 
cule les exponentielles avec une excel- 
lente précision (nous n’avons pas décelé 
d'erreur supérieure à deux unités du 
treizième ordre). Quant au PC-1211, il 
donne des résultats à peu près corrects 
pour les nombres inférieurs à 1, mais les 
performances se dégradent très vite 
ensuite (voir tableau 2). On peut tenter 
d’y remédier avec une formule utilisant 
les logarithmes naturels : 

X = EXP Y + (EXP Y -EXP LN EXP 
Y) 

Mais on constate que la correction, 
si elle va dans le bon sens, est exagérée. 
Il convient alors de n’imputer qu’une 
partie de l’écart aller retour sur la cor- 


PC-111 


Sans correction Après correction 


Valeur réelle Valeur Erreur Erreur 

y de de x sur 12° sur 12° 

x=e (1) chiffre chiffre 

+ L - 
0,2 1,221 402 758 | 160 17 …14 - 2 -1 

0,4 1,491 824 697 | 641 27 62 - 2 
0,5 1,648 721 270 ! 700 13 66 - 4 
l 2,718 281 828 | 459 05 44 = 5 
2 7,389 056 098 | 930 65 86 = 
4 54,598 1501033 144 2 032 0 -]] 
2,302 585 093 10,000 000/000 059 5 000 0 - | 
3,401 197 382 30,000 0001010 135 3 009 4 — 7 
4,094 344 562 59,999 999log6 667 4 985 0 -17 
4,605 170 186 100,000 0001001 191 000 — } 
5,298 317 366 199,999 9991890 393 885 — ÿ 
5,298 317 367 200,000 000!090 393 085 — $ 


de la deuxième colonne. 
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(1) Valeur calculée par la machine, chiffres de garde compris. Afin de ne pas surcharger le tableau, seuls Les 
derniers chiffres significatifs sont indiqués. Les chiffres omis sont identiques à ceux situés à gauche du pointillé 


rection, en l’occurrence la moitié. Notre 
formule devient donc : 


X = EXP Y + (EXP Y -EXP LN EXP 
Y)/2 


Ce qui donne un programme pour 
chaque type de machines. 
e Type A 
500 INPUT Y 
510 X = EXP Y 
520 D = (X - EXP EN X)/2 
5300X = X + D 
°e Type B 
500 INPUT Y 
510 X = EXP Y 
520 D = (EXP Y -EXP LN EXP Y})/2 
530 A = EXP Y -X + D 

C’est à l’aide de ces formules que 
nous avons dressé le tableau 2, qui per- 
met de constater une restitution de table 
des exponentielles correcte, à partir de 
valeurs incorrectes. 


La règle 


générale 


La méthode de correction décrite peut 
finalement se résumer en une formule 
très générale : soit une fonction inverse 
quelconque, désignée par f'', d’une 
variable y. Si l’ordinateur fournit un 
résultat x qu’il y a tout lieu de suspec- 
ter, ajoutez à x le terme correctif D : 
D = f"()- 8 "(CE ))) 

Cela donne par exemple, pour certai- 
nes fonctions trigonométriques : 

ASN Y + (ASN Y - ASN SIN ASN Y), 
pour arc sin y ; 

ACS Y + (ACS Y - ACS COS ACS Y), 
pour arc COS y ; 

ATN Y + (ATN Y - ATN TAN ATN 
Y), pour arc tg y. 

Nous avons vérifié par sondage l’ef- 
fet bénéfique de ces corrections sur un 
PC-1211. Par exemple pour arc cos 0,5, 
la machine calcule (en degrés) : 

ACS 0,5 = 60 -4E-10 

Valeur affinée : 

ACS 0,5 + (ACS 0,5 - ACS COS ACS 
0,5) = 60 - 1 E-10. 

La valeur réelle de arc cos 0,5 étant 
60, on voit que la correction absorbe les 
trois quarts de l’erreur d’origine. 


En résumé, le mode de correction 
décrit est tellement élémentaire et sobre 
en octets, qu’à défaut de le trouver 
inclus dans la mémoire morte de votre 
ordinateur, vous pourrez l’incorporer 
utilement dans vos programmes néces- 
sitant le maximum de précision possible. 


Pierre Ladislas GEDO 
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LES COUPS D'ŒIL DE LIST 


FORTH POUR SPECTRUM 


I LIST, par ses articles enthousiastes sur le 
Forth, a réussi à vous convaincre de la 
puissance et de la rapidité de ce langage, vous 
serez très certainement intéressé par son 
implantation sur votre Spectrum. 
À condition, bien sür, que vous disposiez 
d'un lecteur de micro-cartouches... 


Plusieurs versions de Forth sur 

Spectrum sont disponibles dans 
la logithèque déjà très riche de ce petit 
ordinateur. Mais le Forth présenté ici a 
l’avantage de fonctionner avec les 
microdrives, non seulement pour char- 
ger le vocabulaire mais aussi pour les 


chargements et sauvegardes de blocs ou 


d’écrans. C’est une orientation encore 
relativement rare, peut-être en raison du 
prix exorbitant des cartouches pour 
microdrives. 


L’ensemble du logiciel est présenté 
dans un classeur cartonné de petit for- 
mat, dans lequel sont insérées trois 
pochettes plastiques. La première con- 
tient deux cartouches de microdrives, 
l’une référencée SMF 1.1 Source, l’au- 
tre SMF 1.1 Blocs. La seconde pochette 
contient une documentation succincte 
de sept feuillets imprimés. Ceci pourrait 
paraître très insuffisant si la troisième 
pochette ne contenait un livre de 260 
pages, « Programmer le Forth » de 
Robert Van Loo (aux éditions 
Marabout). 


Cette présentation « artisanale » 
(sans nuance péjorative, bien au con- 
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traire), est ici un gage de qualité. La 
société Sémaphore importe des logiciels 
d’Angleterre et ne se contente pas de 
livrer les produits à l’état brut : elle les 
adapte à notre langue tant au niveau des 
messages des programmes que de la 
documentation. De plus, la société s’en- 
gage à communiquer les éventuelles 
erreurs aux acheteurs dûment enregis- 
trés chez eux. 


Un noyau de base 


de 7 455 octets 


La cartouche Source contient un petit 
programme « run » permettant de char- 
ger le code du Forth (sur la même car- 
touche) et de l’initialiser. Le programme 
« run » est enregistré 80 fois sur la 
même cartouche et le code l’est six fois. 
Cela peut paraître coûteux de réquisi- 
tionner toute la place d’une cartouche 
de 90 Koctets pour un contenu réel d’en- 
viron sept Koctets. Mais cet apparent 
gaspillage fait que l’on se trouve pres- 
que instantanément sous Forth après 


avoir tapé le mot-clé RUN. Par ailleurs, 
cela donne une relative sécurité quant 
à l’effacement accidentel de certaines 
portions de la bande. Cependant la 
grande vulnérabilité des cartouches ne 
vous promet pas de disposer éternelle- 
ment de votre Forth. Une copie de sau- 
vegarde n’est malheureusement pas pro- 
posée, ni même la possibilité d’en réali- 
ser une soi-même par des moyens 
classiques. 


Le noyau du Forth de base occupe 
7455 octets et non pas les 7443 octets 
annoncés dans la documentation. 


La cartouche Blocs a subi un forma- 
tage légèrement différent de celui nor- 
malement réalisé par l’instruction FOR- 
MAT du Basic. Un catalogue de cette 
cartouche imprimera des informations 
incompréhensibles. Pour avoir un cata- 
logue lisible vous devrez le faire sous 
Forth par l'intermédiaire du mot 
INDEX prédéfini. 

Sur cette cartouche, vous trouverez 
quelques utilitaires pour accroître le 
vocabulaire de base. Ainsi, en plus d’un 
éditeur ne faisant pas partie du noyau 
de base, les concepteurs du logiciel ont 
ajouté : 

e un bloc d’extension graphisme et sons 
permettant de récupérer les fonctions 
présentes en Basic ; 

e un bloc d’extension arithmétique dou- 
ble précision ; 

. quelques blocs d’un intérêt mineur 
dont un programme de démonstration 
recherchant les 92 solutions du pro- 
blème des huit reines aux échecs ; 

e et, surtout, un programme de forma- 
tage de cartouches sous Forth. 


Ce formatage est indispensable pour 
utiliser une cartouche qui contiendra les 
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écrans que vous écrirez. Pour que la car- 
touche puisse être conforme aux exigen- 
ces du code Forth, il faut avoir 190 sec- 
teurs de 512 octets contigus sur la 
bande, sans discontinuité. Ceci peut 
parfois être difficile à réaliser en raison 
de la boucle au niveau de la bande sans 
fin. Ce peut être même impossible pour 
certaines cartouches et vous devrez alors 
utiliser les cartouches réfractaires pour 
le Basic, ainsi qu’il est précisé dans la 
notice. Au cas où le formatage aurait 
réussi vous disposeriez ainsi de 85 blocs 
de 1 Koctet par cartouche. 


Outre ces blocs déjà présents, la 
société Sémaphore annonce la sortie 
imminente de blocs plus sophistiqués : 
assembleur moniteur, virgule flottante, 
etc. 

Le Forth ainsi implanté est au stan- 
dard Fig Forth 79. Il est donc tout à fait 
transportable si on n’utilise pas les mots 
non standardisés des blocs précités. 


* 


_$e prémunir 


contre les pirates 


Les mots non présents par rapport à 
ceux de l’ouvrage de Robert Van Loo 
sont mentionnés dans la documenta- 
tion. Ils sont rares maïs la liste est néan- 
moins incomplète. Dans l’énumération 
des mots manquants sont oubliés les 
mots POP, PUSH, R, etc. 


Deux ou trois mots ont une syntaxe 
quelque peu différente. Par contre des 
mots du noyau de base du Forth Spec- 
trum non mentionnés dans le livre ne 
sont pas explicités et nécessiteront peut- 
être un autre ouvrage de référence sur 
le Forth pour leur compréhension. 


Malgré ces petites lacunes, les infor- 
mations disponibles permettent rapide- 
ment de jongler avec tous les mots et les 
piles ! L’atout principal de cette version 
de Forth est le dialogue possible avec les 
microdrives. Cette mémoire de masse 
d’accès relativement rapide permet 
d'obtenir une souplesse et une rapidité 
dans lPesprit du Forth. 


Dans le but de se prémunir contre les 
« pirates » (bien mal cependant) un 
redémarrage à froid est effectué lors 
d’appel de routines en mémoire morte 
qui entraîne normalement un compte 
rendu d'erreur en Basic pour certains 
arguments. On peut le vérifier rapide- 
ment avec le bloc d’extension graphique 
et la fonction PLOT par exemple. Il 
faudra tenir compte de ceci et sauvegar- 
der le programme avant de le tester. 
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Configuration Forth 


Pour réaliser votre propre configuration Forth, vous pouvez faire en sorte que 
| le vocabulaire que vous avez défini devienne partie intégrante du vocabulaire primitif. 
| Après avoir chargé le Forth à partir de la cartouche originale, exécutez les étapes 
suivantes : 

FORTH DEFINITIONS HEX 
* TASK NFA FENCE ! 
FORGET TASK 

Si, par exemple, vous désirez disposer de l'éditeur dès le chargement du programme- 

source, faites : 

OA LOAD 

: TASK ; 

| DP @ DUP 619A ! 619C ! 
| * TASK NFA 618E ! 

713E 619E ! 

COLD 

Notez bien la valeur donnée par « HERE U. » 

Disposez ensuite d’un écran, soit le 1 s’il est vierge, puis : 
EDITOR 
1 CLEAR 
1 P HEX 
| 2 P CREATE RES FF2A, 2BFF, 2BF9, 222B, 5C3D, 
3 P 32AF, 5C71, 0ICD, CB16, OD6E, 3B21, 

4 P CBSC, 239E, EECB, FDFB, 3136, 
5 P C302, 12A9, SMUDGE ; S 
1 LOAD 

Vous pouvez maintenant exécuter RES et, en appuyant sur ENTER, vous êtes sous 
Basic. 

Prenez alors une cartouche vierge et tapez en mode commande SAVE 
*‘‘m’’;1;"forthl’”’ CODE 24576, longueur. 

La longueur correspond à la différence entre la valeur « HERE U. » trouvée pré- 
cédemment et la valeur 24576. 

Faites ensuite : VERIFY *‘*m’’;1;‘‘forth1”’ CODE 

Après avoir réinitialisé le Spectrum par un PRINT USR 0 ou une coupure secteur, 
il ne reste plus qu’à recréer l’interface Basic de chargement du programme-source 
Forth en entrant ces lignes : 

10 CLEAR # 

20 LOAD *‘*m”’;1;“forthl’’ CODE : RANDOMIZE USR 24606 
et faire en mode commande : 

SAVE *‘m’”’;1;‘‘forth1” LINE 10 

puis 

VERIFY «‘*m’’;1;“forth”? 

Vous disposez alors sur la cartouche de votre propre version Forth, que vous char- 
gerez tout simplement par : 
LOAD *‘m’’;l;*forth”? 


La société Sémaphore signale le com- 
portement parfois imprévisible de l’in- 
terface ZX1 afin de dégager sa respon- 
sabilité en cas de mauvais fonctionne- 
ment. C’est vrai, elle comporte des 
bogues ! Pour en corriger certaines, Sin- 
clair a réalisé une deuxième version de 
l'interface ZX1. Cette version n’est, aux 
dires de l’importateur, pas encore arri- 


vée en France, mais il faut savoir dès 
maintenant que certaines adresses de 
routines de la mémoire morte de l’inter- 
face ZX1 ont été modifiées. Le noyau 
Forth de base fonctionnera encore cor- 
rectement car il n’utilise que les Hook 
Codes. Mais le bloc de formatage ne 
fonctionnera pas car il utilise des adres- 
ses absolues dans la mémoire morte de 
l'interface ZX1. Espérons que Séma- 
phore tiendra compte de ce problème. 


Le logiciel en 
ed Forth 1, 
Forme : ZX Spectrum 


X Cartou 
Edité ie ibué pay de micro, 
laine 6 enêve e Suis 


Prix Public : $0p FF 


gl ne Line 


Odrives 
e) “Paphore Logiciel (14 


Tincipale Orje 
alion : la 
N£age Forth 


Un Forth compatible microdrive, y 
compris pour les entrées-sorties, permet 
d’aller plus loin et plus vite dans la pro- 
grammation en Forth. Ce logiciel est 
assez satisfaisant malgré quelques lacu- 
nes et surtout un prix d’achat (500 FF 
ttc) très différent de ceux habituellement 
pratiqués pour les logiciels Spectrum. 


Benoît THONNART 
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LES COUPS D'OEIL DE LIST 


SIMONS’ BASIC 
BASIC ÉTENDU 
POUR COMMODORE 64 


OMBREUX sont les utilitaires destinés à apporter au Basic du 
Commodore 64 un peu de puissance, pour ne pas dire d'efficacité ! 
L'un d'eux, Simons’ Basic, détonne par l'étendue de ses possibilités : 
il enrichit le Basic de 114 commandes et instructions supplémentaires 
permettant de gérer sons et graphismes, et de mettre au point avec facilité 
des programmes structurés, bref, de tout faire avec une souplesse inégalée. 
Tel est donc Simons’ Basic, utilitaire majeur destiné au C.64, 


Edité par Commodore, et distri- 

bué en France par Procep, 
Simons’ Basic passe souvent pour être 
le programme utilitaire qu’il faut con- 
naître. Voyons de plus près. 


Présenté sous la forme d’une classi- 
que cartouche enfichable à l’arrière du 
C.64, sa mise en œuvre est donc d’une 
parfaite simplicité. Dès que la cartou- 
che est en place et l’unité centrale allu- 
mée, Simons’ Basic devient intégrale- 
ment disponible. 


Lors de notre premier contact avec cet 
utilitaire, nous avons trouvé la cartou- 
che dans une boîte cartonnée, accom- 
pagnée d’un livret grand format. A l’ou- 
verture de la boîte, un second livret 
(petit format, celui-là) est apparu. Peu 
habitués à cette profusion de documen- 
tation, et étonnés comme il se doit, nous 
avons donc observé le phénomène plus 
attentivement pour découvrir que les 
deux livrets avaient exactement le même 
contenu... Le plus petit étant rédigé en 
anglais ! 

Cette intéressante particularité est une 
preuve des efforts consentis par Procep 
pour la francisation des logiciels Com- 
modore. C’est aussi une explication au 
fait que les prix de certains logiciels sont 
plus élevés en France. Mais pourquoi 
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| bien fait 


donc avoir laissé dans l’emballage la 
documentation en anglais ? 


Comme nous en avons l’habitude, un 
coup d’œil rapide au manuel d’utilisa- 
tion nous donnera les moyens de maî- 
triser plus facilement le logiciel. Plus 
enclins à employer notre langue mater- 
nelle, nous prenons donc celui qui est 
rédigé en français. 


Un manuel 


Il nous apprend que 114 nouvelles 
commandes viennent muscler le Basic 
quelque peu anémique du C.64 ; et ceci 
dans une douzaine de domaines diffé- 
rents : aide à la programmation, édition 
de texte et validation d’entrées, aides 
numériques, gestion des disquettes, gra- 
phismes, manipulations d’écran, sprites 
et caractères, programmation structu- 
rée, gestion des erreurs, commandes 
musicales, commandes de périphériques 
de « jeu ». 


Le manuel est divisé en chapitres cor- 


respondant à chacune de ces grandes 
directions d’emploi. L’utilisateur non 
averti ne peut manquer d’être surpris 
par la variété du champ d’application 
présentée pour chacune des instructions 
nouvelles. 

Le manuel est bien conçu, clair et pré- 
cis. Seuls manquent quelques détails 
permettant à l’utilisateur de retrouver 
facilement une instruction particulière : 
rien n’attire l’attention sur elle, si ce 
n’est le numéro qui la précède. Un index 
ou une table alphabétique aurait été 
bien utile. 

Pour chaque instruction, on trouve : 
ses caractéristiques syntaxiques, une 
description de ses effets, un ou plusieurs 
exemples d’utilisation très précis, décri- 
vant les actions de l’utilisateur et les 
résultats obtenus. 


Le livret se termine par quelques 
exemples de programmes destinés à 
illustrer les possibilités du Simons’ 
Basic, et une table des dix nouveaux 
messages d’erreur spécifiques de cette 
extension. 


Le grand format du manuel et sa 
reliure spirale le rendent facile à mani- 
puler. C’est un avantage sur le manuel 
d’origine en anglais. 

Evidemment, nous ne pouvons pas 


N° 5 - DÉCEMBRE 84 


décrire ici chacune des 114 nouvelles 
fonctions : un numéro entier n’y suffi- 
rait pas ! 


Voyons plutôt quelques-unes des 
fonctions les plus spectaculaires (ce ne 
sont d’ailleurs pas forcément les plus 
intéressantes pour tout le monde, ques- 
tion de goût !). Le mieux est de com- 
parer ces fonctions avec ce que l’on 
devrait faire pour obtenir le même effet 
en Basic standard du C.64. 


Plus rapide 


et plus simple 


Prenons par exemple l’instruction qui 
permet de mettre en place la haute réso- 
lution graphique. En Simons’, l’instruc- 
tion adéquate est HIRES T, F... dans 
laquelle T représente la couleur du tracé 
et F la couleur du fond. 


En Basic standard, il aurait fallu 

écrire : 

100 POKE 53265,59 

110 POKE 53272,24 

120 FOR E = 1024 TO 2023 : POKEE, 
T +16+xF:NEXTE 

130 FOR E = 8192 TO 16383 : POKE 
E, 0: NEXT E 

140 POKE 53280,F 

150 END 


La lenteur exaspérante d’un tel pro- 
gramme rend d’autant plus précieuse 
l'instruction correspondante HIRES. 


Second exemple, l’allumage de points 
sur l’écran haute résolution est loin 
d’être une sinécure en Basic : 

100 INPUT X, Y 

110IFX<0ORX>3190R Y <0OR 
Y >199 THEN 100 

120 XI = 8 x INT (X/8) 

130 Y1 = 320 x INT (Y/8)+(Y AND 7) 

140 X2 = 2! (7-(X AND 7)) 

150 P = 8192 + XI + YI 

160 POKE P,PEEK(P) OR X2 

170 END 


Mais ça devient un vrai plaisir avec 
Simons’ grâce à PLOT X, Y. Et ne par- 
lons pas des tracés de lignes et de cer- 
cles dont le traitement en Basic suffit à 
faire perdre son sang-froid à tout indi- 
vidu, même très calme ! 


De plus, Simons’ autorise les conver- 
.sions binaire-décimal et hexadécimal- 
décimal avec une vitesse inégalée. 


Il est possible de combiner simple- 
ment ces deux fonctions pour des cal- 
culs arithmétiques entre bases différen- 
tes : PRINT %10110101 + SEB38, 
addition d’un nombre binaire et d’un 
nombre hexadécimal, rend pour résul- 
tat 60397 en décimal. 


Pour réaliser cette opération, un pro- 
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se## LXTÉMDED CM VU 


BASEC #22 


38719 BASIC BYTES FREE 


LA 
1 
2 
3 


5598 


Liste des mots réservés 


de Simons’ Basic 
ANGL 

ARC 

AT 

AUTO 


BFLASH 
BFLASH 0 
BLOCK 


CALL 
CENTRE 
CGOTO 
CHAR 
CHECK 
CIRCLE 
CMOB 
COLD 
COLOUR 
COPY 
CSET 


DELAY 
DESIGN 
DETECT 
DIR 
DISABLE 
DISAPA 
DISK 
DISPLAY 
DIV 
DRAW 
DUMP 
DUP 


END PROC 
ENVELOPE 
EXEC 
EXOR 


FCHR 
FCOL 
FETCH 
FILL 

FIND 
FLASH 
FRAC 
GLOBAL 
GRAPHICS 


HI COL 
HIRES 
HRDCPY 


IF... THEN...ELSE 
INKEY 

INSERT 

INST 

INV 

JOY 

KEY 

LIN 


LINE 
LOCAL 


LOOP...EXIT IF...END LOOP 


LOW COL 


MEM 
MERGE 
MMOB 
MOBOFF 
MOB SET 
MOD 
MOVE 
MULTI 
MUSIC 


NO ERROR 
NRM 


OFF 

OLD 

ON ERROR 
ON KEY 
OPTION 
OUT 


PAGE 
PAINT 
PAUSE 
PENX 
PENY 
PLACE 
PLAY 
PLOT 
POT 
PROC 


RCOMP 

REC 

RENUMBER 
REPEAT...UNTIL 
RESET 

RESUME 
RETRACE 
RLOCMOB 

ROT 


SCRNLD 
SCRSY 
SCROLLING 
SECURE 
SOUND 


TEST 
TEXT 
TRACE 


USE 


$ 
7 


10 


...et ceux que nous avons peut-être 


oubliés. 


En sept lignes, 
Basic épaulé 

par Simons’ permet 
le tracé d’une roue 


gramme Basic normal devrait par exem- 
ple effectuer la conversion binaire-déci- 
mal, puis la conversion hexadécimal- 
décimal, pour enfin pouvoir effectuer 
l'opération et rendre le résultat. Beau- 
coup d’efforts pour peu d’effet. Il est 
vrai que nous n’avons pas besoin tous 
les jours de ce genre de possibilités. 


Plus courante d’emploi est la fonction 
MOD (X, Y) qui rend le reste de la divi- 
sion de X par Y. En Basic, la formule 
est : PRINT X —INT(X/Y}+Y. Elle est 
là encore beaucoup plus efficace avec 
Simons’. 

Concernant la programmation struc- 
turée, Simons’ est capable d’apporter 
aux programmeurs des habitudes de 
programmation meilleures, et d'éliminer 
bien des « sacs de nœuds » présents 
dans des programmes écrits sans 
réflexion préalable, à grands renforts de 
GOTO. 


Pour cela, IF... THEN...ELSE est 
encadré de REPEAT...UNTIL, 
LOOP... EXIT IF...END LOOP, tan- 
dis que PROC et END PROC, combi- 
nés à CALL et EXEC permettent de 
définir et d’utiliser des PROCédures. 


Pour les amateurs de jeux, PENX, 
PENY, JOY et autres POT(X) fournis- 
sent un arsenal précieux. 


Quant aux amateurs de musique, ou 
à ceux qui l’auraient été si le C.64 avait 
bien voulu leur faciliter la tâche, ils ne 
sont pas oubliés : les commandes 
WAVE, VOL, ENVELOPE, MUSIC, 
PLAY sont là pour le plaisir de la pro- 
grammation et celui des oreilles. 


Nous pourrions continuer encore 
longtemps cette énumération : Simons’ 
Basic n’est pas un utilitaire comme les 
autres, que l’on teste en quelques jours. 
Pour lui, une longue pratique est indis- 
pensable. Nous n’avons pu, pendant la 
durée de notre test, qu’approcher cer- 
taines possibilités de cette cartouche, 
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sans pouvoir même en effleurer d’au- 
tres. La richesse de ce logiciel est sim- 
plement exceptionnelle. Mais nous 
avons fait quelques amusantes expérien- 
ces non prévues dans le manuel (ou trop 
bien cachées) : par exemple, GRA- 
PHICS est une variable réservée dont la 
valeur est 53248 (première adresse du 
registre vidéo). Il suffit de taper PRINT 
GRAPHICS, pour vérifier. De même 
pour SOUND, qui vaut 54272 (première 
adresse du registre son). 


Les programmeurs 


apprécieront 


L’instruction MEM, utilisée pour la 
redéfinition des caractères peut être 
annulée par NRM (NoRMal), tandis 
que le manuel indique seulement 
STOP/RESTORE pour revenir à l’état 
antérieur. 


Nous avons découvert que le mode 
TRACE devient inopérant lorsque 
MEM a été exécuté. De la même façon, 
il peut être intéressant de savoir que la 
fonction AT est utilisable dans une ins- 
truction du type : A$ = AT (10, 15) + 
‘‘texte”” : PRINT AS. 


Les utilisateurs du Simons’ Basic ont 
donc encore des choses à découvrir. Et 
que dire à ceux qui ne le possèdent pas ? 
A eux de voir si la puissance et la fonc- 
tionnalité de ce type de logiciel peuvent 
leur être utiles. Il faudra, bien entendu, 
qu'ils soient des programmeurs achar- 
nés pour en tirer le parti maximum. 
Avec un manuel bien conçu, voici donc 
un fantastique programme qui, à notre 
connaissance, est le seul à permettre une 
utilisation aussi « totale » du C.64 


px 


Seules ombres au tableau : les pro- 
grammes conçus à l’aide du Simons’ 
Basic ne peuvent plus être utilisés sans 
lui. Vous aurez donc du mal à faire pro- 
fiter vos amis de vos productions, si 
eux-mêmes ne le possèdent pas. Enfin, 
son prix relativement élevé : 750 FF ttc. 
Le confort se paie ! 


Robin BOIS 
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LES COUPS D'ŒIL DE LIST 


UN ASSEMBLEUR 
POUR LE DAI PC 


E logiciel SPL, comme disent les initiés, est un 
des cinq éditeurs-assembleurs de langage- 
machine qui « tournent » sur le DAI PC. Sans doute 
est-il le plus puissant, car il se veut très proche de 
MACRO 80, un assembleur tout à fait 


professionnel. 


SPL est livré sous forme de cas- 

sette audio (ou micro-cassette 
numérique) avec plusieurs utilitaires, 
dont DISPLAY, un très puissant désas- 
sembleur et TRANSLATOR, qui per- 
met de récupérer des sources écrites avec 
les autres assembleurs. Voilà qui est bien 
pratique. La notice, en français, est lon- 
gue de 34 pages ; c’est dire que les com- 
mandes sont nombreuses et qu’il con- 
vient de lire et relire le texte avant de 
prétendre maîtriser ce logiciel. Cela 
étant, SPL offre une grande souplesse 
d’emploi. 


Le droit 
à l'erreur 


D’abord, sa façon de compacter le 
fichier-source autorise la compilation de 
programmes très longs, avantage déci- 
sif pour toute application « sérieuse » : 
on peut assembler en une seule fois 
jusqu’à 12 Koctets de codes-machine ! 
Ensuite, l'écriture de la source sous édi- 
teur plein écran (avec tabulation auto- 
matique pour chacune des zones labels, 
opérandes, etc.) simplifie grandement le 
travail : il est possible de déplacer le 


texte-source dans toutes les directions, 
de se positionner n’importe où pour 
corriger. 


—-— 


JUSTE ONE 
MISE AU PoinT ! 
ee 


+ 


Le premier déverminage (ou débo- 
gage) se fait en sortie d’édition : en cas 
d’erreur de syntaxe, SPL réédite la 
source à partir de la ligne fautive, et le 
curseur est remplacé par une lettre cli- 
gnotante mnémonique du type d’erreur 
détecté. Ce système fait gagner beau- 
coup de temps lors de l’écriture d’un 
programme. Les possibilités de travail 
sont très grandes, et il est hors de ques- 
tion, en quelques lignes, de les passer 
toutes en revue. Les grands « classi- 
ques » sont là, avec souvent un 
« plus » : copie ou déplacement de 
paragraphes, recherche ou remplace- 
ment d’étiquettes, paramétrage de la 
liste (nombre de lignes par page; affi- 
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chage en décimal, hexadécimal, octal, 
binaire, au choix, des adresses et/ou des 
opérandes). J’ai beaucoup apprécié la 
possibilité de demander un segment de 
liste ou d’édition par numéro de ligne 
ou par étiquette. Ainsi, la commande L 
10 FIN déclenche-t-elle la liste de la 
source de la ligne 10 jusqu’à l’endroit 
où se trouve l’étiquette FIN. L’incon- 
vénient d’une telle richesse est l’abon- 
dance des commandes : il vaut mieux 
garder le manuel près de soi pour s’y 
retrouver, du moins au début ! 


La liste 1 montre un exemple de 
source SPL, utilisant l’assemblage con- 
ditionnel, la gestion dynamique d’éti- 
quettes, les macro-instructions, avec ou 
sans passage de paramètres. Ce pro- 
gramme est destiné à mesurer le temps 
que le Dai met à parcourir 255 instruc- 
tions NOP (1). Les lignes 21 à 25 mon- 
trent comment expanser 255 instruc- 
tions en peu de place : c’est l’assembleur 


Liste 1 : programme-source 
obtenu avec SPL 


qui fait la boucle en gérant dynamique- 
ment l’étiquette COMPT. 


Le début de liste (lignes 9 à 14) est un 
exemple d’assemblage conditionnel, 
utile pour faire plusieurs versions d’une 
même source. Ici, l'étiquette VERS (ver- 
sion) vaut 1, le début du code-machine 
sera compilé à partir de 400 (hex), 
sinon, à partir de 500 (hex). Ceci peut 
être encore affiné, car SPL permet les 
tests booléens sur les étiquettes, du 
genre IF VERS =1 AND LABEL =2 
OR VERS < > 5, etc. Les macro- 
instructions peuvent aussi passer des 
paramètres (exemple : store passe 
l’adresse RESULT dans l’étiquette RE 
lors de l’expansion de la macro). La 
ligne 2 montre comment donner des 


er 
ù LA _—— 


heæ À\, 
LUZ N\ Dai-LAMA lt) £ 


si . 7 
ù DE ie ' : Na 


Le LAGA 


directives à l’imprimante, lors du listage 
de la source. Ici, on commande le pas- 
sage en écriture grasse sur une Epson. 


L'Assembleur 


n'est pas tout 


L’utilitaire DISPLAY, livré avec 
SPL, ajoute des fonctions à l’assem- 
bleur : il permet d’obtenir la liste hex et 
ASCII d’une zone mémoire. Il désas- 
semble aussi un code-machine en 
recréant une source utilisable par SPL, 
avec des étiquettes, s’il vous plaît ! Sur 
la liste 2, on voit comment apparaît le 
désassemblage de la routine « sortie 
série » du Dai. Remarquez les étiquet- 
tes placées aux points de branchement 
de la routine. DISPLAY peut désassem- 
bler SPL lui-même (12 Ko de codes- 
machines !) et le tout (code et source) 
tient encore en mémoire vive. Enfin, 


(1) Si vous désirez savoir combien de temps le Dai 
met à parcourir 255 NOP, faites, sous Basic : 
PRINT (#FFFF - PEEK (#300) - (PEEK (#301) 
+256)) +20 ; ‘millisecondes "”. 

En fait, ce n’est qu'à partir de plusieurs mil- 
liers de NOP que la décrémentation devient visible. 
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1 

2 1En,45n idirectives :MpgrTimante 

5 TT ASSEMBLEMENT 

4 TITL ESSAI SFL + ET MODERNISATION... 

5 ï 

6 FUT "4" iaffichage nexagecimai . 

7 ORG S86: 

8 TEMFS Dw BFFFFH jinitialisat:ion 

9 VERS SET 1H iversion ! 

16 IF VERS= 1H 

Yi GRG 4081 

Le ELSE 

135 OÜRG S88H 

14 ENDIF 

15 : 

16 TIMER Eau 1BEn snor loge du DAi 

17 RESULT EQU SA@H itaepon du resultat 

18 ; 

1e ush sappei de sacro : ; 

28 Lune si Liste 2 : exemple de désassemblage 

2 COMFT SET OFFH slsbel gere dynasiquesent d’une routine 

22 1oop ### spt ao entree de 1 expansion 

23 NOF 

2 COMPT SET COMPT-5H sdecresent du iabei ueue î 

25 loop COMFT @H sbaucie tant que iabei :8 even ; 

76 ; euna PRT 15H,45SH 

27 store RESULT ssacro avec parametre aveu 5 

28 So wawa ORG 2DD94H 

29 RET DD94 F5 LHDD94 FUSH PSW 

30 FIN END DD95 ZAGGFD LHDD9S5 LDA LHFDOQ 

z1 : DD98 E608 ANI 8H 

32 zone des macro-instructions DD9A  CA9SDD J2 LHDD9S 

Z3 ; DD9D GAF3FF LHDD9D LDA LHFFFS 

34 push MACRO DDAG EGi0 ANI 16H 

3S FUSH HE DDAZ CASDDD JZ LHDD9D 
SE MEND DDAS F1 FOPF PSW 

37 time MACRO DDR& 52F6FF STA LHFFF6 

38 LHLD TEMFS DDA9 FE@D CPI GDH 

39 SHLD TIMER DDAE CG RNZ 

40 MEND DDAC F5 PUSH FSW 

41 store MACRO RE passage du parasetre DDAD 3EGA MVI A BAH 

42 LHi D TIMER DDAF  CD94DD CALE LHDD94 

43 SHLD RE DDEZ F1 FOF PFSW 

44 MEND DDRS C9 RET 

45 pop MACRO DDEB4 à=-FDOG LHFDGG EQU GFDGGH 

46 FOF DDH4 à=FFF3 LHFFF3S  EQU OFFFZH 

47 MEND DDB4 à=FFF6 LHFFF6  EQU GFFF6H 

48 ; DDB4 END 
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LES COUPS D'OEIL DE LIST | 
SPL, UN ASSEMBLEUR POUR DAI 


l'utilitaire IMPLEM permet de paramé- 
trer SPL, si les options par défaut ne 
vous conviennent pas, et ce, sans 
POKESs fastidieux. 


La fonction LINK (« accrochage », | Orginateur : Dai 
lors de la compilation, de sous-routines i professionnelle) 
en bibliothèque) est absente de SPL. Ë Forme : cassetle 
Elle est remplacée par un MERGE 
(commande Y) qui inclut dans la source 
de travail des segments provenant de la 
mémoire de masse. 


L’interactivité de SPL se traduit en 
{nombreux !) messages signalant telle 
ou telle anomalie : fautes de syntaxe, 
fautes de structure (lors de la compila- 
tion), fautes d'introduction (commande 
erronée), etc. De plus, à chaque retour 


Le logiciel en quelques lignes 


Nom : Assembleur és et Dai T (version 


cassette numérique : 
mic Mottaart - 2031? 


59140 


audio OÙ 
8 par : Dainà 


- ÿ, rue Lavoisier, 


és F français, environ) 
assemblage de 


Orientation principale : 


e-machine | | 
Dies entations : désassembleur, tr 


p-mémoire 


anslateur de 


LES COUPS D'OEIL DE LIST 


à SPL, un check sum de la source, du 
code et de SPL lui-même vérifie l’inté- 
grité de ce qui est en mémoire (vous 
savez : un programme « pas tout à fait 
au point » et que l’on essaie, peut 
occasionner des ravages sournois !). 


Voilà donc un assembleur très réussi 
et puissant qui ne dépayserait pas un uti- 
lisateur venant de machines n’ayant rien 
à voir avec un micro-ordinateur. Asso- 
cié à DDT (DAInamic debugging tool, 
un excellent utilitaire de mise au point), 
SPL se devrait de figurer dans la pano- 
plie de tout Daïste féru de langage- 
machine. 


Alain MARIATTE 


INITIATION 
AU LANGAGE BASIC 


POUR TO 7 


LUS qu'une initiation, c'est un cours de Basic 
appliqué au TO 7 qui est proposé en six 
volumes (douze cassettes) réalisés et distribués par 
Vifi-Nathan. L'ordinateur donnant des leçons 
d'informatique : un bon exemple 


d'Enseignement Assisté par Ordinateur. 
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Chacun des six volumes comporte 

deux cassettes et un fascicule 
d’une vingtaine de pages composé de 
fiches pratiques où sont résumées les 
instructions traitées et leur utilisation. 
Un lexique reprend les termes employés 
pour la première fois dans la leçon et 
une série d’exercices d’application est 
proposée en complément. On a droit a 
trois ou quatre réponses inexactes avant 
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PS | On | À 


Instructions traitées dans l'initiation 
au langage Basic de Vifi-Nathan 


Vol. 2 Vol. 3 


Vol. 4 Vol. 6 


‘ AUTO [EXPRESSIONS 
CONT  |OPERATEURS 
DELETE | VARIABLES 
END. 
LIST LOAD 
NEW 
REM 
RUN 
SAVE 
STOP 


: te- 
e de 6 coffrets CON 
éri 

cassettes € 


ñ jivret 


que le programme ne donne la solution. 


Quelques secondes suffisent au 
chargement de chaque leçon (un 
chargement en musique: le 
magnétophone du TO 7 travaillant sur 
deux pistes, une piste numérique et une 
piste « audio »). 


La présentation de chaque leçon est 
attrayante, tout comme la transition 
entre les chapitres. Au total, une 
cinquantaine d’instructions sont 
« disséquées » et, surtout, leur effet est 
immédiatement visualisé à l’écran. C’est 
le principal avantage de cette formule 
que de présenter ainsi des applications. 
Un cours écrit, si bien fait soit-il, restera 
toujours un peu théorique. 


Chaque volume développe un thème 


"spécifique, c’est ainsi que l’on trouve 


dans l’ordre : 

e la gestion d’écran, le maniement des 
couleurs et du graphisme et la 
génération des sons, toutes choses ayant 
un attrait particulier pour le profane ; 
e les commandes d’édition, de 
lancement et de sauvegarde des 
programmes ; 

e les expressions numériques, les 
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DATA ATTRB 
GOTO CONSOLE 
IF THEN DEFGR$ 
ELSE GRS 
INPUT INSTR 
INPUT PEN LEFTS$ 
INPEN LEN 
LINE INPUT MID$ 
READ PRINT USING 
RESTORE RIGHTS 
TAB 


opérateurs arithmétiques et les 
variables ; 

eles notions de programmation 
proprement dites (branchements, 
compteurs et boucles) qui ne viennent 
qu’avec le quatrième volume, soit après 
l’acquisition d’un minimum de 
connaissances nécessaires à l'écriture 
d’un programme : 

+ le volume 5 aborde les tableaux et les 
Sous-programmes ; 

* enfin, le volume 6 est consacré au 
traitement des chaînes de caractères 
(concaténation, extraction de sous- 
chaînes, etc.) ainsi qu’à la définition et 
à l’utilisation de caractères spéciaux 
créés par l’utilisateur. 


Pendant le déroulement de chaque 
leçon, un menu, affiché au bas de 
l'écran, vous permet à tout moment de 
revenir en arrière ou de passer à la suite. 


Une base 


solide 


On ne trouvera pas dans ce cours, par 
ailleurs bien construit, les instructions 
étendues du Basic-disque, ni celles qui 
concernent par exemple le traitement 
des erreurs ou la gestion des manettes 
de jeu. Mais cette série de cassettes, très 
pédagogique, permet aux grands 
débutants d’acquérir une base solide. 

Nous avons ici une bonne 
démonstration de l’'EAO (enseignement 
assisté par ordinateur) dont le principal 
avantage est sans doute de s’adapter au 
rythme d’étude de chacun. 


Jean-Paul CARRÉ 


MÉCREANT LsPINCE MI ET PUCES À Si 


4e GRUERAÏ TES CIRCUIT 


À moi sont EN BATEAUS, QUEL 


on!) 1 MAS R 
: 3-4 LiSTOSe 
NAN SE PE. 


EST L'AGE DU CAPITAINE % 


À c'est Fantastique! LE 

À cauMe Est RENEND URE 
FOIS DE PLUS GRACE ANOUS 

| surer-Listos! 
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HAQUE programme Basic tient du mouton à cinq 
pattes : non seulement il doit réaliser ce qu’on 

attend de lui, mais il doit également être le plus 
performant possible tout en occupant peu de place 
en mémoire. Ce dernier point est fondamental 
sur les ordinateurs de poche, qui ne sont pas 
toujours riches en Koctets. Sur tous les matériels, 
et sur le PB-700 en particulier, le fait de réaliser 
des programmes simples et concis présente de 
nombreux avantages : moins de temps passé au 
clavier, risques d'erreurs réduits, maintenance et 
modifications plus faciles, raisonnement plus 
pratique à suivre ou à expliquer... 


Une fois lancé, le programme pré- 

senté ici propose un jeu : des « lu- 
tins » d’un type assez particulier enva- 
hissent l’écran par la droite. Il s’agit de 
les faire disparaître grâce à un petit 
rayon qui part de la gauche de l’écran 
et qui est dirigé à partir du clavier : P 
lance ce rayon, Q le déplace vers le haut 
et Z le déplace vers le bas. Si on le fait 
descendre alors qu’il est déjà en bas de 
l'écran, il réapparaît en haut. Et inver- 
sement. Chaque lutin touché donne un 
point. 


Au départ, trois niveaux de difficulté 
sont proposés (de 1 à 3). La partie se ter- 
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mine dès qu’une rangée de lutins rejoint 
la colonne de gauche d’où part le rayon. 


Ce programme pourrait n’être consi- 
déré que pour le résultat (passionnant) 
qu’il propose. Mais on peut aussi l’ana- 
lyser afin de comprendre sa structure 
et surtout, de l’adapter à d’autres Basic 
que celui du PB-700. 


Le programme se divise en cinq par- 
ties : initialisation (lignes 1 à 16), pro- 
gression des lutins (lignes 18 à 25), 
déplacement du rayon (lignes 28 à 45), 
tir (lignes 48 à 70) et fin de partie (lignes 
78 à 95). 


Les tableaux de variables sont dimen- 
sionnés par la ligne 5 ; les lignes 10 à 15 
servent à créer trois variables graphiques 
qui sont respectivement : une suite de 
symboles CHRS (250) représentant les 
« lutins », une suite de tirets représen- 
tant le rayon qui va servir à faire dispa- 
raître les lutins, et une suite d’espaces 
qui permettra d’effacer ce rayon. Le 
programme taillera dans ces variables 
des longueurs correspondant à ses 
besoins avec une instruction MID$ 
(lignes 20, 55 et 60). 


Ligne remplie, 


partie finie 


Les lutins sont figurés par le symbole 
CHR (250) : une croix dans un carré 
ouvert (il manque un côté). Selon le 
niveau (T) choisi ligne 16, ils apparaî- 
tront par paquets de 1, 2 ou 3. 

N est une variable aléatoire qui peut 
prendre les valeurs O0, 1, 2 ou 3. On peut 
ainsi déterminer sur quelle rangée de 
l'écran vont apparaître les lutins, à cha- 
que passage du pointeur ligne 20. Par 
exemple, en niveau 2, si N — 3, nous 
verrons arriver deux symboles CHRS 
(250) sur la rangée du bas de l’écran. 


La ligne 25 donne le signal de la fin 
d’une partie : il y a plus de 17 lutins sur 
une ligne. 

Une petite accolade, CHRS$(125), 
figure le départ du rayon ; elle se 
déplace verticalement sur la première 
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1 REM *#---INITIALISATION ---* 
5 CLEAR :DIN AC4),ASCIDKIZ7:BEC1DKI2; 
C#C1)%xI8: CLS 

18 FOR I=1 TO 17 

il ASCID-ASC1I)+CHREC2HDD:NEXT [ 

13 B$C1LD=M-- ee ” 
15 C$<1):" 
16 INPUT "NIUEAU(1:2»3)";T:CLS 


18 REM *X---PROGRESSION DES LUTINS- --% 


20 N=INTCRNDX4):ACN)=ACN)D+T:LOCATE 19 


“ACNDIN: PRINT MID#CASCI). 1, ACND D: 
25 IF ACN)D)>17 THEN 89 
28 REM *---DLPLACENENT DU RAYON ---* 
3 LOCATE BG: X:PRINT ‘ 3: :iF INKLYS$-"G 
THEN X=x-1 


31 IF INKEYS= "2" THEN x2x+1 

35 IF K=-1 THEN X=3:1F X=4 THEN x29 
4aQ LOCATE 2, X: PRINT CHR$CI25); 

45 IF INKEY#C)"P" THEN 20 

48 REM X--- TIR x 


58 S=S+]1:1F ACX)=Q THEN ACXD=1 

55 ACX)-ACXI-L:LOCATE 1, X: PRINT MID$< 
B$SC1):1:18-ACX)); 

68 LOCATE 1, X:PRINT MID#CC#C1): 1: 18-A 
CX));:BEEP 

70 GOTO 2q 

28 REM *X--- FIN DE PARTIE ----X 

88 FOR 1=i TO 18 


85 BCEP 1:BEEP :BEEP 1:NEXT 1 
98 CLS :LOCATE 5:2:PRINT SCORE: :S; 
35 [IF INKEY$="" THEN 95 ELSE 5 
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Lutins en nombre 
Programme pour PB-700 
Auteur André Reeb-Gruber 
Copyright LIST et l’auteur 


Liste des variables 


longueuf d’une rangée de lutins 
suite de 17 symboles « lutins » 
és 


suite de 17 signes ‘‘ — 
sentant le rayon 


repré- 


suite de 18 espaces (effacement 
du rayon) 

variable aléatoire de 0 à 3 
niveau de difficulté (progression 
des lutins) 

ordonnée du rayon 


Les lutins arrivent à droite de l'écran ; 
le rayon qui part de la gauche essaie 
de contenir leur poussée 


Z 


colonne de l’écran : ce qui revient à dire 
que ses coordonnées sont toujours sous 
la forme (0, X) avec X variant de 0 à 
3. Quand la touche Z est activée (ligne 
31), l’accolade se déplace vers le haut 
car X est incrémenté d’une unité ; inver- 
sement, une pression sur Q (ligne 30) la 
fera descendre d’un cran. 


. Un tour 


d'écran 


La ligne 35 mérite d’être soulignée. 
Grâce à elle, en effet, l’accolade peut 
« faire le tour » de l’écran : si on la fait 
descendre alors qu’elle est en bas de 
l’écran, elle réapparaît en haut, et vice- 
versa. Cette ligne 35 est en fait un dou- 
ble test que l’on aurait pu écrire comme 
ceci : 35 IF X = —-1 THEN X = 3 
(passage du haut en bas de l'écran) 
et 36IF X = 4 THEN X = 0 
(passage du bas en haut 
de l’écran). 


Quand X est ainsi 
déterminé, la ligne 40 af- 
fiche l’accolade à l’endroit vou- 

lu, sa position précédente ayant été 
effacée par la ligne 30. 


S'il n’y a pas de tir à ce moment (ligne 
45), les lutins continuent de se prome- 
ner impunément (ligne 20 et suivantes). 


Quand la touche P est activée, les 
lignes 50 à 60 interviennent pour déclen- 
cher le rayon. Ligne 50, on incrémente 
le score S en passant, et l’on s’assure 
que le rayon ne risque pas de déborder 
de l’écran : c’est ce qui se passerait si 
l’on tirait sur une rangée entièrement 
vide (A(X) = 0). 


La ligne 55 forme le tir : le rayon est 
constitué d’une portion de la variable 
B$(1) (suite de signes ‘ —””) ; la lon- 
gueur nécessaire est calculée grâce à 
A(X), de telle sorte que le rayon s’ar- 
rête sur le premier lutin de la rangée 
considérée. 

La ligne 60 efface ce tir et le lutin tou- 
ché : même principe d’action que la 
ligne 55, mais en remplaçant les signes 
—?? par des espaces. Puis l’on repart 
ligne 20 pour une nouvelle vague de 
lutins. 


Lorsque les lutins ont réussi à attein- 
dre l’accolade (signal donné par la ligne 
25), ils claironnent leur victoire par des 
BEEP retentissants (lignes 80 et 85). Il 
ne reste plus qu’à afficher le score S 
(ligne 90) et, éventuellement, à repartir 
pour de nouvelles aventures (ligne 95) 
en appuyant sur une touche. 


André REEB-GRUBER 
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INTERFAÇAGE SUR APPLE II ET Ile 


PASCAL APPELLE 
LANGAGE-MACHINE 


OMME on l'a vu dans LIST 4, l'interfaçage + PIOEMRE Pascal appelé devra 


de son côté définir la liste des paramè- 


. - s ” e £ : h d du- 
du Basic avec le langage-machine nécessite  “ a ODA D 


un certain « bricolage » SU À pple. De même, définis comme des modules externes que 
: à nous lierons au programme Pascal après 
l'appel de sous-programmes en Assembleur à que ces modules aient été traduits en 


langage-machine par l’ Assembleur Pas- 


partir de programmes écrits en Pascal, doit suivre Si SSeN D Lego sembleur Pas 
certaines règles définit TOTO et ZOZO comme modu- 


les externes. Le compilateur « passera » 


La déclaration d’une procédure Le programme BIDON 
ou fonction en Assembleur se fait PROGRAM BIDON 
tout de suite après la déclaration des CONST ...; 
variables du programme Pascal (voir le ee. : 
programme BIDON). VAR..... ; 
Le système Pascal Apple permet alors PROCEDURE ZOZO(VAR L: J:INTEGER);EXTERNAL; (+ Z0Zo en assem- 
de lier (link) les modules en langage bleur +) 
d'assemblage (TOTO et ZOZO) avec FUNCTION TOTO(J:INTEGER):INTEGER: 
des modules déjà compilés en « P- BEGIN (+ principal : bidon x) 
Codes, 4% ; 
ZOZO(A,B) 
Supposons que nos deux programmes : 
en Assembleur aient été assemblés et K:=TOTO(A); 
sauvés sur disquette. Le module TOTO : 
est une fonction et le module ZOZO est END. 
une procédure. En langage d’assem- : 
blage, nous définirons TOTO et alors sur ces modules quand il les ren- 
BIDON comitie suit contrera ; le « linker » les liera au pro- 
.PROC Z0OZO,2 ;:2 mots pour passer les 2 paramètres gramme principal avant exécution : 
_. ;corps de la procédure L)INK 
“END HOST FILE?BIDON 
De même la fonction TOTO sera défi- A 
nie par : OPENING ZOZO.CODE 
.FUNC TOTO,I ; | mot pour le passage du paramètre LIB FILE?TOTO 
Fi ; corps de la fonction OPENING TOTO.CODE 
.END LIB FILE <CR> 
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MAP FILE? <CR> 
READING BIDON 
READING ZOZO 
READING TOTO 
OUTPUT FILE?BIDON.CODE 
LINKING BIDON #1 
COPYING PROC ZOZO 
COPYING FUNC TOTO 
Ici pas de déclaration de procédure ou 
fonction Assembleur « external » dans 
le programme Pascal de l'unité : il y a 
par contre obligation de passer par un 
SYSTEM.LIBRARY pour une unité 
sauf mention contraire dans le pro- 
gramme Pascal (voir l'unité ASZOZO). 
Après assemblage de ZOZO et com- 
pilation de l’unité ASZOZO, on effec- 
tue une édition de liens ; l’unité est prête 
à être introduite dans la librairie. 


Voici un programme Pascal conte- 
nant la procédure Assembleur ZOZO : 
PROGRAM BIDON 
USES ASZOZO; 


CONST..; 
VAR....; 
BEGIN 


ZOZO(..): 
END. 


On compile le programme Pascal 
puis : 
e si l’unité est régulière, on réalise l’édi- 
tion de liens ; 
e Si l’unité est intrinsèque, il n’y a pas 
lieu de faire cette édition. L’unité est 
alors ‘pre linked””, à condition qu’elle 
se trouve dans le SYSTEM.LIBRARY 
lors du lancement du programme. 


Il faut remarquer que les variables 
déclarées au niveau de l’interface d’une 
unité sont globales par rapport au pro- 
gramme Pascal (ne pas les redéclarer au 
niveau global du programme !!). De 
plus, avec ou sans l’option ‘‘noload”? 
lors de l’exécution du programme, il y 
a d’abord exécution des unités (mise en 
place des variables globales) puis exécu- 
tion de l’initialisation. 


Lors de l’appel d’une procédure en 
Assembleur, il y a toujours communi- 
cation par empilage de mots sur la pile 
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Pom Pom POM PON … 
MESSAGES PERSONNELS : 
S PASCAL APPELLE LANGAGE 
HAGHINE … 

SFPOZO ENBRASSE 
1010 BIEN FORT... 


L'unité ASZOZO 


(#SSL + x) 
UNIT ASZOZO; < INTRINSIC CODE 25 DATA 26; > (x<>--2> 
unité intrinsèque *) 
INTERFACE 
CONST .:: 
Lee... (+ nécessite un segment data pour une unité intrinsèque *) 
VAR..... ; 
PROCEDURE UNTEL(. ...), 
PROCEDURE ZOZO(. . .); 
IMPLEMENTATION 
CONST ...; 
VAR..... à 
PROCEDURE ZOZO;EXTERNAL; 
PROCEDURE UNTEL; 
CONST ...; 


VAR.....: 


END; 
BEGIN 
.3 (+initialisation s’exécute avant le programme Pascalx) 
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INTERFAÇAGE SUR APPLE II ET Ile 
PASCAL APPELLE LANGAGE-MACHINE 


(le mot minimum étant l’adresse retour 
qui doit être dépilée, sauvegardée puis 
empilée de nouveau lors de la sortie de 
la procédure Assembleur). Pour les 
mots, l’empilage a lieu dans l’ordre : 
octet de poids fort puis octet de poids 
faible. Le mot adresse retour est tou- 
jours empilé en dernier. Celui-ci n’est 
Jamais compté. 

Prenons un exemple pour plus de 
clarté : 


Dans le programme Pascal, cela donne : 
PROCEDURE ZOZO(VAR TOTO:< packed array of char > ); EXTERNAL; 


Et dans la procédure Assembleur : 
.PROC ZOZO, I 
.CONST A 
.PUBLIC I, TOTO 
.PRIVATE B,C:8 


Toute variable publique doit être 


déclarée en variable globale dans le pro- 
gramme Pascal. De même toute cons- 


PROCEDURE ZOZO(I:REEL;VAR J:REEL) ; 


L’empilage a lieu dans l’ordre : mots 
pour le paramètre I puis mots pour le 
paramètre J. La procédure Assembleur 
ZOZO commencera par : 

.PROC ZOZO,X 
où X sera égal au nombre de mots décri- 
vant les paramètres I et J. 


Tous les passages par VARiables ont 
lieu par passage d’adresse, donc un 
mot ! Tous les passages par valeurs ont 
lieu par le nombre maximum de mots 
décrivant le paramètre. 


Déclarer les 


variables publiques 


Quelques exceptions à la règle : 
STRING, RECORD, ARRAY sont 
passées par variable. Ainsi, 
ZOZO(VAR Z: STRING) ou 
ZOZO(Z:STRING) sont identiques : il 
y aura empilage d’un mot correspon- 
dant à l’adresse du paramètre Z. 


Maintenant que l’on sait que dans 
“PROC ZOZO,X”’, X est le nombre 
de mots et non le nombre de paramè- 
tres, on peut le calculer : deux mots 
décrivent la valeur de I et un mot con- 
tient l’adresse de J. 


Les réels nécessitent deux mots, les 
entiers et les booléens, un seul, les 
entiers longs, ou ensembles, nécessitant 
le nombre maximum de mots alloués 
par la déclaration du programme Pas- 
cal (un mot indiquant ce nombre maxi- 
mum). À part la fonction retournant 
une valeur qu’il est nécessaire d’empi- 
ler lors de la sortie Assembleur (ainsi 
que l’adresse retour), la communication 
entre Assembleur et Pascal passe par les 
directives du titre du paragraphe qui 
allouent un espace de communication de 
données. 
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«MACRO GLH 
- ENOM 
MACRO MLF 
. ENDM 
5 # utilisable par toute routine * 


RRRREDDE SSD ERNST 585 


: CONST AÂ,EBB,., 

-FUBLIC ENTIER,TABLEAU,.. 
; * nécessite une déclaration 
AAR,BER,... 
H La accessible uniquement 
programme hâte x 


3 * résolution lors de l‘édition 


-PROC 2020,2 
-DEF  ALPHA,BETA,.. 
4 * définition pouvant servir 


GLH SET 
ALPHA re 
RTS 
BETA -WORD 0000 
THETA -BLOCK 912 
VO proc za 


-DEF MU,NU 
«REF ALPHA,BETA 


JSR ALPHA 
MLF BETA 
RTS 


EPSILON .BYTE 00 


A . 
que son hote qui devra 
comme procédures externes. 


AUX 


de 


3; renvoie à une définition 


i fin de tout ce programme assembleur 
déclarer 


tante doit être déclarée au niveau glo- 
bal (ici A). Si on utilise une unité, les 
déclarations seront faites au niveau de 
l'interface. 

La référence privée indique une varia- 
ble utilisable uniquement par le pro- 
gramme Assembleur. Mais la place de 
cette variable est définie dans le pro- 


Programme ! 


au niveau global Fascal «PRIVATE 


routines assembleur localisation 


liens x 


à d'autres routines *# 


extérieure à ZAZA 


qui n'attend plus 
toutes les procédures assembleur 
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gramme hôte (le segment des données 
globales reste ici durant tout le pro- 
gramme). Par défaut, un mot est 
réservé. Ici, on a réservé un mot pour 
B et un bloc de huit mots pour C. 


Ceci peut être très intéressant lors de 
l’utilisation d’unités avec l'option 
‘“noload”” ; on a ainsi un endroit pour 
sauvegarder des données. De même, 
entre deux appels de routines Assem- 
bleur, Pascal se sert de la page zéro, les 
données n’y sont donc pas à l'abri. 


Le passage par la pile de TOTO per- 
mettra de mettre l’adresse de TOTO en 
page zéro (PTRTOTO & PTRTOTO + 
1, seule façon de pouvoir utiliser l’adres- 
sage post ou pré-indexé). 


Les actions qui 


modifient TOTO 


La déclaration de ‘‘. PUBLIC [°° per- 
met de se servir de | comme étiquette 
adresse. On n’a donc pas besoin de 
l’adresse de I et il est inutile d’utiliser 
la pile. 


La déclaration publique de variables 
permet de récupérer les actions de la 
routine Assembleur sur ces dernières 
(effet de bord). 


‘# CONST A’’ permet d’accéder au 
niveau du programme Assembleur à la 
constante À déclarée au niveau global 
dans le programme hôte. On pourrait 
donc avoir dans la procédure Assem- 
bleur des mnémoniques de la forme : 

LDA 12. 
STA I ; write In (1); — — > 2572 
LDA OA 
STA I1+1 


Programme 2 
Procédure ECRAN 


.PROC ECRAN, I 
-EQU 00 

PLA 

STA RETURN 
PLA 

STA RETURN +1 


PLA 


AND #01:0— — >1 
EOR #01 ;1——>0 
TAY 

LDA 0C054,Y 

PLA 

LDA RETURN +1 
PHA 

LDA RETURN 
PHA 


RTS 


RETURN 


Programme Pascal 
PROGRAM PAGE; 
VAR PAGE :INTEGER; 


;sauvetage de l’adresse de retour 


;on dépile la partie basse du paramètre 


;sélection de l’écran désiré 
;on dépile la partie haute du paramètre 
;on restaure l’adresse de retour 


retour au Pascal 


PROCEDURE ECRAN(PAGE:INTEGER);EXTERNAL; 


PAGE:=|; 
ECRAN(PAGE); 
PAGE: = 2; 
ECRAN(PAGE); 


.PROC Z07Z0O,3 
.DEF SOL 


RTS 
LA .WORD 0000 
.END 
Ici, on définit une étiquette pouvant 
être utilisée par d’autres procédures en 
Assembleur. On renvoie alors à 
une définition de SOL externe à 


STA (PTRTOTO),Y ;adressage post-indexé cette procédure. 


STA TOTO, X 
TOTO sera modifié par ces actions. 


Les routines séparées peuvent se par- 
tager données et sous-programmes en 
utilisant les directives .DEF et .REF. 


L’Assembleur génère alors des infor- 
mations permettant à un programme 
Assembleur d’appeler des sous- 
programmes qui se trouvent dans un 
autre programme Assembleur. L’utili- 
sation de ‘‘.REF”” et ‘‘.DEF’”’ est simi- 
laire à celle de ‘.PUBLIC”’ associant 
des étiquettes (‘‘labels’”} entre deux rou- 
tines Assembleur plutôt qu'entre une 
fonction (ou une procédure Assem- 
bleur) et un programme hôte Pascal. 


‘* DEF” identifie une étiquette pou- 
vant être utilisée, au moyen de ‘‘.REF”’, 
à partir de ‘‘.PROC’’ ou ‘‘.FUNC"’ 
dans d’autres programmes d’assemblage. 
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;adressage indexé 


.PROC ZAZA, 1 
.REF SOL, LA 


SR SOL 
ROR LA 
END 


On peut maintenant réaliser une édi- 
tion de liens entre ces routines et le ‘‘lin- 
ker”” résoudra les problèmes à condition 
que la routine ZAZA soit la routine 
hôte ! 

Attention : lors de l’édition de liens, 


ZAZA utilisera uniquement la routine 
de ZOZO comprise entre les étoiles. 


Ensuite, il suffit de ‘‘linker””’ gaiement 
ZAZA avec un hôte Pascal se servant 
uniquement de ZAZA comme procé- 
dure externe (hôte : programme ou 


unité). On peut dire, dans ce cas, qu’une 
partie de ZOZO est une routine de 
ZAZA elle-même routine de l’hôte. 
ZAZA a piraté ZOZO ! 


Il est possible d’écrire un ensemble de 
routines qu’on assemble en une seule 
fois (voir programme 1). 

Donnons pour finir un exemple réel : 
le Pascal fourni sur l’ Apple dispose 
d’un ensemble de fonctions graphiques 
(Turtlegraphics) n’utilisant que la page 
graphique numéro un. On peut donc 
présenter un court programme qui per- 
mettra l’accès à la page numéro deux. 
Ce programme écrit sous ‘‘E)DIT”’, 
sera assemblé avec ‘AJSSEM”’ (voir 
programme 2). 


Le Pascal, au moment de l’appel de 
la procédure ou de la fonction externe, 
empile sur la pile (‘‘stack”?) la liste des 
paramètres exigés (deux mots pour les 
réels, un mot pour les entiers) puis 
l’adresse de retour au programme prin- 
cipal. La première chose à faire est donc 
de mettre à l’abri cette adresse afin de 
pouvoir la remettre sur la pile avant le 
RTS final. 


L'option ‘‘L)INK”’ reliera la procé- 
dure ECRAN au programme Pascal. Le 
passage des paramètres, ici le numéro 
de l’écran, se fait tout naturellement : 
il est mis sur la pile au moment de l’ap- 
pel de la procédure ECRAN dépilé au 
moment opportun. 


Philippe FRANÇOIS 
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MISEZ PTIT : OPTIMISEZ 


MODULO:CI, 
. MODULO-AH-LA-LA ! 


Jean-Christophe KRUST 


@1 jongler avec la pile opérationnelle de votre 

 HP-:41 C, traquer la milliseconde perdue et 
rogner le moindre octet est votre pain quotidien... 
Ou si, à l'inverse, vous échappe parfois un peu de 
la subtile recherche des programmes en Notation 
Polonaise Inverse... 
Alors, voici qui doit vous intéresser. 
En matière de programmation, est-on jamais 
certain d'avoir fait aussi bien que possible ? : 

e PATES e ° vent, la puissance (b) et le diviseur (c) 

Le mieux pourrait-il être l'ami du bien ? ne sont pas ensemble des nombres 
Dans cette rubrique, les défis se succéderont : des CR a 
Programmes toujours plus courts, plus rapides... dde dé 
Et les records tomberont ! sh 


où les a; successifs pour i = 1 à m sont 

les facteurs premiers décomposant n et 

les pi, les puissances les affectant res- 

pectivement — voir la décomposition 

Défi de LIST n°2, solution en  breux cas. Mais pas tous, car elle est très d’un nombre n en produit de nombres 
n° 4 : Modulo - Suite et. fin ? sensible au caractère premier de la PUiS- premiers : 

Qui s’y frotte s’y pique. Entre les pro- sance ou du diviseur. 

grammes MODULO 1 — je plus court esse 

— et MODULO 2 — le plus rapide pour 

les deux tests précisés — se situe une 

zone sombre de cas bien particuliers où 

MODULO 2 n'est plus, et de loin, 

optimal. 


1=m 
n = Il a” 
ii 


Un contre-exemple 
| choisi avec soin 


Le signe IT représente un produit au 
même titre que © représenterait une 
somme. 


Ra | fl ane à É A l'appui de cette remarque, voici un 
L | ppelons qu’il faut trouver a : | Fe 
Et c’est à Olivier Chararas que révient modulo c dans le cas où b notamment on. Poe oi a Nas 
la tâche d’y jeter un peu de lumière. Sui- est un très grand nombre, par exemple : va > en finit a dé  . 
icati 152 .…. S 

vons ses explications. 8 mod 3 trouver : 22? modulo 211 (résultat 174) 
La méthode de la périodicité des con- La périodicité maximale, égale à la ou, pire encore, avec 2!!! modulo 1061 
gruences employée dans MODULO 2 fonction d’Euler de la puissance (ci- (résultat 302). Bien sûr, avec un seul 
(LIST n° 4) est très rapide dans de nom- après), est rarement atteinte Car, sou- module d’extension mémoire, c’est un 
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AIéLEL “HABULOZ" 3 é 
g2 53 Programm È 
: Fe Auteur Olivier Charara 

{3 : LS Copyright LIST et l’auteur 

fid 4 : . 

RS LE: 35 peu court. Mais les quelque 300 regis- 

RG4LEL BG 56, tres disponibles d’une CV ne suffisent 

u? MOT : es pas non plus dans tous les cas. 
Li 

85 LASTE 28 

RE 

11 GTO 8e 31 ED curlosité 

12 F24 EL fi 5 

3 4 Fi EE 2 Alors, voici MODULO 3 — pro- 
34 xt2 gramme encore optimisable à n’en point 
35 Ft douter — qui donne, lui, le bon résul- 
36 ETO 44 tat dans la majorité des cas en moins de 
374LEL 85 6 secondes et n’use que d’un registre de 

18 GTO 4 32 Rt RE 

19 FDK 39 END Puisque la périodicité des congruen- 

28 ECL 08 ces est liée à la fonction d’Euler, elle- 


UI DIT MIEUX ? 


Triangle de Pascal. Bateau ? Oui, mais pouvez-vous trouver les coefficients 
de n’importe quelle ligne (aux OUT OF RANGE près) du triangle de Pascal ? 


Zoom arrière. Ci-dessous, se trouve un tableau de chiffres. Pour le cons- 
truire, on a posé, à partir du sommet 1, que chaque chiffre d’une nouvelle 
ligne est égal à la somme de celui qui est situé juste au-dessus et de celui qui 
est à gauche de ce dernier. L’absence de chiffre vaut 0. Toutes sortes de symé- 


tries apparaissent, par lignes ou colonnes, en fonction du numéro de la ligne, 
etc. 


N° de ligne Tableau de Pascal 


Sachant le numéro n de la ligne, trouvez la suite des chiffres qui la com- 
pose. Par exemple, n = 5, les chiffres sont 1, 5, 10, 10, S et 1. 


Par commodité, et dans le souci de mesurer le temps de calcul, on stockera 
(6 sacrilège) dans les registres ROO à Rnn les nn + 1 chiffres de la ligne à trou- 
ver. Ce n’est que lorsque ces chiffres sont ainsi stockés qu’on stoppe le 
chronomètre. 


On pourra programmer, à côté, une petite routine (hors concours) de visua- 
lisation des chiffres trouvés. 


La solution réside, bien sûr, dans l'examen attentif de la logique du tableau. 
Mais aussi, dans le rappel de vos souvenirs sur le développement de (a +b}" 
(coefficients) ou loi binômiale. 


MONTI 
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même liée aux nombres premiers. 
Vous voyez la suite ! 


Calculez avec MODULO 3 des 2* 
modulo x pour x premier ou non. Si x 
est un nombre premier, le résultat est 2. 
Et cela constitue un assez rapide test de 
primalité. 

La réciproque n’est pas vérifiée : 2* 
modulo x = 2 n’entraîne pas que x soit 
premier (par ex. : 2“! mod 341 = 2 
mais 341 n’est pas premier). En revan- 
che, 3“! mod 341 = 168 ce qui prouve 
que 341 n’est pas premier. 


Ainsi, dans le doute, si n° mod x = 
n quand n est un nombre premier on 
peut poursuivre les tests (n = 2, 3,5, 
7, 9, 11, etc.) jusqu’à la preuve que x 
n’est pas premier (n* mod x + n) ou 
bien qu’il l’est. 


Ë 


MOD sans MOD 
(HP.41, HP.-11, 12, 13, 14, 15, 16...) 


Après lecture du numéro de septembre 
de « Misez p'tit » — 6 rage — j’ai su la 
terrible vérité : ma HP-15 C ne connaît 
pas la fonction MOD. 

Alors. si on faisait un programme qui 
calcule modulo : le reste de la division 
entière d’un nombre par un autre. sans 
employer du tout la fonction MOD. La 
HP-41 et les autres HP sur un pied total 
d’égalité ? 

En deux mémoires et 19 octets, ce n’est 
pas l’idéal, mais ça tourne. Voici MOD 
sans MOD : 

STO 8 Ri STO 9 RT =: INT RCL 8 
x RCL 9 — CHS RTN 

Taper a, puis b (de a modulo b), lan- 
cer le programme et lire le résultat. Les 
ancêtres HP-33 E et autres reliques rem- 
placeront RT par R{ RI Ri. 


Bruno FITER 
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LIST À TESTÉ 


N nouveau boîtier et une mémoire vive de 


32 Koctets ont transformé 


Alice en Alice 90. 

Le Basic, lui, a peu 
changé. Il est très 
classique. 

Mais, sur ce nouveau 
modèle, il est aussi 
possible de programmer 
en Assembleur. 


Il y a un an déjà, la collaboration 

de l’Américain Tandy et du 
Français Matra donnait le jour à un être 
bicéphale, baptisé MC-10 par le premier 
et Alice par le second. Aujourd’hui, 
sous la houlette de Hachette, Matra 
reprend le flambeau, en conservant pra- 
tiquement le même Basic, comptabilité 
oblige ! 


Sur ce tronc commun, Matra a déve- 
loppé deux nouveaux appareils. Dans 
son petit coffret exigu, le premier des 
deux présente une mémoire-utilisateur 
de 8 Koctets ; un connecteur permet 
d’ailleurs d’ajouter une extension de 16 
Koctets, quoique pour un prix élevé. 
Une version plus luxueuse, équipée d’un 
véritable clavier mécanique, d’un bofî- 
tier de taille conventionnelle, et surtout 
de 32 Koctets, constitue le fleuron de la 
gamme, sous le nom d’Alice 90. 


Les ptonniers de l’informatique indi- 
viduelle se souviennent sans doute du 
TRS-80. Ils reconnaîtront, dans la ver- 
sion de Basic qui équipe l’Alice, beau- 
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coup des ordres qui faisaient leurs déli- 
ces voilà plusieurs années. 


Aligné cependant sur les performan- 
ces de la concurrence, l’affichage a lieu 
selon trois modes différents : 32 colon- 
nes sur 16 lignes, 40 sur 25 et, luxe 
suprême, 80 sur 25. Un simple ordre 
CLS suivi des quantités 32, 40 ou 80 se 
charge de l’opération. Toutefois, les 
possesseurs de téléviseurs couleur 
auront quelques difficultés à lire l’écran 
dans le dernier mode. 


Un point fort : 


le clavier est mécanique 


Sur le modèle 90, 53 touches (et ce 
sont de vraies touches) se proposent à 
la frappe. En plus des touches de carac- 
tères alphabétiques et numériques, qua- 
tre flèches du plus bel effet rappellent 
que le modèle originel était dépourvu 


d’éditeur et qu’il était impossible de 
déplacer simplement le curseur. Mais si 
les flèches sont bien là, leur pression 
n’est pas toujours suivie d’effets ; seule 
la flèche à gauche permet ici d’effacer 
le dernier caractère entré. Les autres ser- 
vent en mode-éditeur. 


Avec 32 ou 40 colonnes, le SHIFT 
n'affiche pas de minuscules, mais des 
caractères semi-graphiques sur 
16 touches. Pour se faire une idée de 
leur aspect, il suffit de découper en qua- 
tre la surface occupée à l’écran par un 
caractère alphabétique normal, et d’al- 
lumer un ou plusieurs des quatre rectan- 
gles ainsi obtenus. Le fond de cette 
matrice 2 X 2 reste noir, mais la cou- 
leur des rectangles dépend de celle du 
curseur clignotant. Il est possible de la 
modifier en pressant une ou plusieurs 
fois CTRL O, pour obtenir l’une des 
huit variantes : vert, jaune, bleu, rouge, 
blanc, bleu clair, violet, orange. En 
outre, CTRL associée à 38 des touches, 
permet la frappe directe d’un mot-clé du 
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Basic, à l’image de nombreux appareils 
récents. 


SHITF 0 effectue le passage à une 
impression en caractères inversés (vert 
sur fond noir) ; mais en mode 80 colon- 
nes, par contre, elle assure une frappe 
en minuscules (non accentuées, sur un 
matériel français !). La répétition de 
cette séquence SHIFT 0 déclenche le 
retour à la normale. 


Les lignes de programme Basic sont 
limitées à un maximum de 127 caractè- 
res. Seules les majuscules sont autori- 
sées pour rentrer les instructions et fonc- 
tions diverses. L’ordre LIST permet de 
lister une ou plusieurs lignes, tandis que 
l’astérisque suivi d’un numéro permet 
d’accéder à un éditeur de ligne. Les flè- 
ches déplacent le curseur vers la droite 
ou la gauche, tandis que toute autre tou- 
che provoque l'insertion des caractères 
correspondants, à l’emplacement du 
curseur. Seule, la flèche vers le bas 
efface alors un caractère. 


Un bon 


vieux Basic 


Le temps de l’édition d’une ligne, 
SHIFT suivi d’un espace permet d’avoir 
un clavier à répétition. La pression de 
CTRL espace permet le retour à la 
normale. 


Encore une fois, la société Microsoft 
a fait du bon travail. Le Basic est très 
standard avec à peine 55 mots-clé dif- 
férents. Les impressions sont réduites au 
minimum. Les PRINT USING, HTAB 
ou VTAB, n'existent pas. Seule, la 
syntaxe PRINT @ suivie d’un nombre 
permet une impression en n’importe 
quel point de l’écran ; cette formule 
acrobatique oblige à calculer la position 
d’impression comme résultat du numéro 
de ligne souhaité multiplié par la lar- 
geur d’écran et auquel on rajoute la 
colonne d'impression. Ce qui s’écrirait 
VTAB 8:HTAB 5 dans un autre Basic, 
devient PRINT @ 8*40+5, pour un 
écran en 40 colonnes. 


Les principales commandes et fonc- 
tions du Basic sont présentes. Les 
entrées sont obtenues de façon classique 
à partir d’un ordre INPUT et la saisie 
du clavier peut s’opérer à travers une 
variable INKEY$. Les tests sont limités 
à un simple IF... THEN sans ELSE, tan- 
dis que les opérateurs logiques compren- 
nent les AND, OR et NOT. Appliqués 
à des valeurs numériques, ils servent aux 
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opérations binaires ; ainsi 5 AND 3 
prend la valeur 1 (en effet 0101 AND 
0011 donne 0001). 


Les calculs numériques s’effectuent 
sur 9 chiffres significatifs entre 1038 et 
10-%, Les opérateurs usuels sont +, 
—, *, /. Quant aux fonctions trigono- 
métriques (sinus, cosinus et tangente), 
elles travaillent sur des valeurs expri- 
mées en radians, à chacun de faire la 
conversion à partir des degrés. 


Le traitement des chaînes de caractè- 
res s'effectue au moyen des fonctions 
usuelles : MID$, RIGHTS et LEFTS. 
Les DATA peuvent être numériques ou 
alphanumériques, mais sont analysées 
en bloc. Il n’est pas possible de pointer 
une ligne de DATA particulière. 


Les erreurs de syntaxe ne se manifes- 
tent qu’à l’exécution du programme, 
sous formes d’abréviations sibyllines en 
langue anglo-saxonne. Heureusement, 
le manuel, très clair, apporte sa 
traduction. 


Le dessin est assurément le parent 
pauvre de l’Alice. Il est impossible de 
changer simplement la couleur des tex- 
tes imprimés à l’écran. Dans les modes 
32 et 40 colonnes, ceux-ci restent obsti- 
nément verts et noirs, même en chan- 
geant la couleur de fond par un ordre 
CLS suvi d’un chiffre de 0 à 8. 


Si les graphiques peuvent coexister 
avec le texte sur un même écran, ils ne 
peuvent en aucun cas s’y superposer. 
Aucune fonction directe ne permet de 
tracer des cercles et des lignes : tout se 
fait point par point. Il faut découper 
l’écran en petits rectangles élémentai- 
res : 64 X 32, 80 X 50 ou 160 X 125 
points selon le mode écran choisi. En 
allumant ou en éteignant chaque rectan- 
gle, on crée un dessin. 


En mode 32 ou 40 colonnes, l’ordre 
SET (X, Y, C) permet d’allumer un 
point de coordonnées X et Y dans la 
couleur € choisie parmi huit possibili- 
tés (noir exclu). L’instruction RESET 
effectue le contraire : l’extinction d’un 
point. Mais, en fait, tous les points con- 
tenus dans un même pavé de 2 X 2 doi- 
vent obligatoirement être de la même 
couleur. Si l’on désire travailler en huit 
couleurs, la résolution disponible est 
inférieure aux valeurs annoncées ci- 
dessus, sans toutefois être radicalement 
divisée par deux. 


En mode 80 colonnes, on retrouve cet 
inconvénient, mais avec une palette de 
couleurs limitée à trois valeurs : la cou- 
leur du fond, celle d’impression du texte 
et celle du bord de l’écran. 


Fiche technique d’Alice 90 


Constructeur : Matra 

Prix public : 2 490 FF ; version coffret avec 
lecteur de cassette et cinq cassettes de logi- 
ciel, 3 490 FF 

Mémoire vive : 56 Koctets dont 32 Koctets 
utilisateur 

Mémoire morte : 16 Koctets 

Langages : Basic, Assembleur du 6803 
Modes d'affichage : 32 colonnes sur 16 
lignes ; 40 sur 25 ; 80 sur 25 

Nombre de mots du Basic : 55 


La véritable nouveauté de l’Alice 
réside dans la présence en mémoire 
morte, d’un programme assembleur du 
microprocesseur 6803. Il faut aupara- 
vant réserver un espace mémoire à l’aide 
d’une instruction CLEAR. II devient 
alors possible d’écrire un programme en 
langage-machine sous forme de mnémo- 
niques. Quoique simplifié, cet assem- 
bleur est un réel outil de travail. 


: L’Assembleur 


n'est pas un jouet 


Pour l'écriture du programme vous 
disposez d’un éditeur pleine page avec 
beaucoup de facilités : insertion de 
ligne, recherche de chaînes de caractè- 
res. Il est véritablement dommage de 
ne pas pouvoir en profiter en Basic. 


Les labels sont autorisés dans l’écri- 
ture du programme qui peut être sau- 
vegardé sur cassette sous forme d’un 
fichier texte. A la fin, l’assembleur se 
charge de traduire le programme en 
codes-machine exécutables à n’importe 
quelle adresse, et indique les éventuel- 
les erreurs de syntaxe. 


Au vu des possibilités somme toute 
restreintes du Basic, il est intéressant de 
se demander quel public vise Matra. 
S'agit-il du néophyte ? A prix égal, il 
trouvera d’autres machines équipées de 
synthétiseur de sons, de manettes de jeu, 
etc. Pour lutter contre la concurrence, 
seul le modèle de base a des atouts pour 
s’imposer : son manuel et son prix. 


En revanche, le programmeur 
confirmé trouvera dans l’assembleur, 
un outil de développement en langage- 
machine. La capacité mémoire impor- 
tante lui sera nécessaire. 

Ironie du sort, ou revirement com- 
merciali, l’Alice qui semblait un appa- 
reil de première initiation se révèle dans 
sa version 90 un outil de travail très 


intéressant. 
_ Pierre RICARD 
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APPLICATION 


PROGRAMMER AVEC 


VISICALC 


L arrive fréquemment que des scientifiques 
aient, comme les gestionnaires, à manipuler 
simultanément de nombreuses listes de nombres, 
surtout en physique (par exemple, des différences 

de potentiel en les sommets d’un maillage). 


Pour ce genre de calculs, 


il existe des outils 


merveilleux : les « calques » ou « tableurs ». 
On s'intéressera ici à Visicalc. 


On peut lire dans un livre consa- 

cré à Visicalc (1), comment résou- 
dre avec ce tableur une équation telle 
que : log ((10+x)/(9—x)) = 0 dont la 
solution est évidente (x= —1/2). On 
trouve un encadrement à 0,5 % près, en 
dix lignes. Les exemples seraient faciles 
à multiplier de cette programmation en 
langage « tableur ». 


Une fois utilisées les merveilleuses 
fonctions d’un calque, il reste à exploi- 
ter ses résultats. Quand il faut recopier 
à la main une grande masse de données, 
ce n’est guère agréable. Quand il faut 
recopier ces nombres sur le clavier de 
l'ordinateur pour les traiter de nouveau, 
cela devient insupportable. 


Ramasser 


les données 


Il existe heureusement une solution au 
nom barbare : le format « DIF » (Data 
Interchange Format) mis au point par 
Software Arts pour Visicalc. Sur d’au- 
tres tableurs, cela porte d’autres noms, 
comme « SYLK » pour Multiplan de 


(1) « Clefs pour Visicalc » de Jean-Louis Marx 
et Alain Thibault, éditions du PSI, collection 
Mémento. 
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Microsoft, etc. Ce logiciel particulier est 
conçu pour ramasser tous les contenus 
d’un rectangle Visicalc en un fichier 
DIF, fichier que l’on peut utiliser aus- 
sitôt, par exemple, pour reverser ces 
contenus dans les mémoires de l’ordi- 


MÊME SANS ViSiCALC IL SUFRT 
DE COMPTER! UNE MAILLE À 
L'ENDROIT , UNE MAILLE À 

L'ENVERS ET VON N'AUREZ 
PS DE DiFFÉRENCES DE 
POTENTIEL AU SOMMET 
DE VOTRE MHILLAGE, 
C'EST TOUT LE 
MÊME PAS 
SORCIER! 


— 1,0 


“BERTRAND” 


“DONALD” 
0,22756 V 


— 1,0 


0,10681 V — 1,0 
V 0,2500 V 
0,300 V — 1,0 


nateur hôte à fin de traitement en Basic, 
Pascal, Fortran ou Assembleur. 
Donnons l’exemple (certes très stu- 
pide) d’un tableau de 4 lignes et 3 colon- 
nes qu’il s’agit de récupérer par DIF : 


ANDRE 11236 4700 
BERTRAND 22756 2500 
CATHERINE 1264 2000 
DONALD 10681 300 


Les instructions sont très simples. Il 
suffit de se placer en Al, coordonnées 
du coin en haut à gauche du tableau, 
d’entrer successivement les commandes 
/ (slash) S # S et de donner un nom 
de fichier, comme TOTO/DIF, le suf- 
fixe DIF étant obligatoire. Le logiciel 
demande ensuite les coordonnées du 
coin en bas à droite (ici C4, quatrième 
ligne de la troisième colonne). Il reste 
enfin à préciser si l’on veut opérer par 
lignes (R) ou colonnes (C) : répondre R 
pour « row ». C’est fait : le fichier 
TOTO/DIF s’est inscrit sur la dis- 
quette ; on peut quitter Visicalc pour 
toujours. 


Donnons une idée du contenu de ce 
fichier, listé ci-dessous (liste du fichier 
TOTO/DIF). Il comporte 44 lignes, 
regroupées ici par cinq pour gagner de 
la place. 

On n’y comprend pas grand-chose à 
première vue mais, en fait, c’est très 
simple. Un peu d’attention montre que 
les trois colonnes de notre tableau ini- 
tial s’y retrouvent bien, d’abord celle 
des prénoms, mis entre guillemets (ce 
sont des chaînes de caractères), puis les 
deux formées de nombres. Pas de con- 
fusion : la virgule ici n’est qu’un sépa- 


VECTORS 


“CATHERINE?” 
0,11236 

V 

0,4700 

V 
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rateur ; il ne s’agit pas de notre virgule 
bien française remplacée, le cas échéant, 
par le point décimal anglo-saxon. 

Un examen de l’enregistrement sur la 
disquette (par exemple avec un utilitaire) 
montre facilement que notre fichier DIF 
est tout bêtement un fichier séquentiel, 
de maniement donc très commode ; il 
ne demande pas de précaution 
particulière. 


Poursuivons l’observation : chaque 
chaîne est précédée des symboles [1,0] 
à la ligne supérieure, tandis qu’un nom- 
bre suit toujours immédiatement les 
symboles [0,] placés sur la même ligne 
que lui, avec un V sur la ligne inférieure. 

C’est clair, le drapeau 1 signifie : la 
donnée est une chaîne. Il est alors suivi 
du nombre 0 (0 = rien ?) parce qu’ilen 
faut bien un, et des caractères entre guil- 


10 Z=O:U=1M=-I 


20 CS = CHRS(34):AS$ = C$ + CSV =", 
30 B$ = ‘‘BOT'’:E$ = ‘‘EOD’’:DAS = ‘‘DATA” 
40 TA$ = TABLE’:VES = ‘‘VECTORS"” 


50 TU$ = ‘‘TUPLES”’:WS = ‘‘V” 
60 T=3:D=2 


lemets. Au contraire, le drapeau 0 dit 
qu’il s’agit d’une donnée numérique, 
qui lui succède aussitôt, et la chaîne de 
la ligne suivante est un banal V, sans 
guillemets, V comme Valeur mais aussi 
Vide. La structure est donc assez sim- 
ple : toujours deux nombres suivis 
d’une chaîne de caractères. 


La morphologie 


d'un fichier DIF 


A chaque bout d’enregistrement de 
colonne, figurent deux lignes assez 
bizarres. La première est toujours 
[— 1,0]. Bon sang, mais c’est bien sûr ! 
Toujours ce sacré drapeau : —1 — 
séparateur entre rangées, pour le distin- 


Programme d'ouverture . 
d’un fichier ESSAI/DIF 


70 DI$ = DUPONT”’:DI$ = C$ + DIS + CS 
80 D2$ = ‘MARTIN’’:D2$ = CS + D25 + C$ 


90 D3$ = ‘SIMON”’:D3$ = C$ + D3$ + C$ 


A = 123:B = 456:C = 789 
OPEN‘“O"”, 1, “ESSAI/DIF:1" 
PRINT #1,TAS$ 
PRINT #1,Z; V$;U 
PRINT # 1,A$ 
PRINT # 1,VES 
PRINT #1,Z:VS$:T 
PRINT #1,A$ 
PRINT #1,TUS 
PRINT #1,Z;V$;D 
PRINT #1,A$ 
PRINT #1,DA$ 
PRINT #1,Z:V$:Z 
PRINT #1,A$ 
PRINT #1,M;V$:Z 
PRINT #1,B$ 
PRINT #1,U;V$;Z 
PRINT #1,DI$ 
PRINT # 1,U;V$:;Z 
PRINT # 1,D2$ 
PRINT # 1 ,U;V$;Z 
PRINT # 1,D3$ 
PRINT # 1,M;V$:;Z 
PRINT # 1,B$ 
PRINT #1,Z:VS$:A 
PRINT #1,WS$ 
PRINT #1,2Z;V$;B 
PRINT #1,W$ 
PRINT #1,2;V$;C 
PRINT #1,W$ 
PRINT #1,M;:V$:Z 
PRINT #1,E$ 
CLOSE 

END 


guer d’un indicateur de nature de don- 
née (0 ou 1). La seconde ligne est [BOT], 
sauf tout à la fin où c’est [EOD]. Celle- 
là, on la reconnaît : c’est « end of 
data », « fin de données ». Quant à 
BOT, ce sont les initiales (anglaises) de 
« beginning of tuple », « commence- 
ment de tuple », ce qui ne dit pas grand- 
chose a priori. Patience. 


Remontons tout en tête du fichier, et 
regardons les douze premières lignes. 
Pour simplifier, TABLE, VECTORS, 
TUPLES et DATA seront considérées 
ici comme des constantes des fichiers 
DIF, ainsi que les couples de guillemets 
[‘* “] qui les suivent. En fait, les seules 
choses susceptibles de varier pour nous, 
ce seront les nombres 4 et 3 qui termi- 
nent les lignes en-dessous de VECTORS 
et TUPLES. Quatre, c’est clairement le 
nombre de VECTORS (vecteurs), ici 
lignes puisque nous avons choisi R 
(comme row, ligne), à l’enregistrement ; 
et trois, celui des colonnes, appelées ici 
TUPLES (on dirait en argot de matheux 
t-uplets, quelque chose comme « liste de 
t machins », un terme quasi-synonyme 


Programme Basic Microsoft construisant un « faux » fichier 
DIF de D =2 colonnes et T =3 lignes ; la première colonne con- 
tient des caractères, la seconde des nombres. On peut les modi-. 
fier en changeant les lignes 70 à 100. Si l’on veut changer les 
nombres 2 et 3, il faut évidemment reprendre en conséquence 
les lignes 60, 160 et 190 mais, surtout, bouleverser les instruc- 


tions entre 260 et 390. 
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de « vecteur », inutilisable car déjà 
employé pour les lignes). 

En choisissant C (colonne) au lieu de 
R, Visicalc aurait simplement échangé 
les nombres 4 et 3, et le premier BOT 
aurait été suivi des six lignes que voici : 
1,0 ‘ANDRE’ 0,11236 V 0,4700 V 
au lieu des huits lignes listées plus haut. 
On aurait alors eu naturellement un 
[— 1,0 BOT] de plus (4 TUPLES au lieu 
de 3). Le système est donc assez astu- 
cieux : les mots ROW et COLUMN — 
ligne et rangée — sont transformés, au 
gré du programmeur, en VECTORS et 
TUPLES, ce qui permet de ramasser les 
données dans un ordre ou dans l’autre 
suivant les cas. Ici VECTOR = ROW, 
TUPLE = COLUMN ; on sait qu’on 
aurait pu faire l’autre choix. 


Nous connaissons maintenant la mor- 
phologie d’un fichier DIF. Rien n’em- 
pêche d’en fabriquer d’artificiels, pour 
mettre dans un Visicalc ce que nous vou- 
lons : figure en annexe un programme 
Basic Microsoft (sur TRS) ouvrant un 
fichier séquentiel appelé ESSAI/DIF 
sur le lecteur n° 1, simulant un fichier 
DIF obtenu d’après le tableau Visicalc 
imaginaire suivant : 


DUPONT 123 
MARTIN 456 
SIMON 789 


On peut trouver ce programme plu- 
tôt long — c’est vrai. En fait le pro- 
blème n’est heureusement pas celui-là, 
mais plutôt de pouvoir mettre dans les 
mémoires de l’ordinateur le contenu 
d’une page de tableur. Et cela est bien 
plus facile, comme le montre le pro- 
gramme Basic suivant, destiné au cas où 
le Visicalc a construit uniquement une 
suite de nombres réels (35 dans l’exem- 
ple choisi, issu de 5 colonnes de 7 don- 
nées) que l’on veut mettre dans AI) 
pour [ compris entre 0 et 34 : 

10 DIM AG34) : D$= ‘‘TOTO/DIF” : 
[= -1 

20 OPEN “1”, 1, D$ 

30 INPUT #1, T$, T, N, S$ 

40 IF T$< > ‘DATA’ THEN 30 

50 INPUT #1,T,N,S$ 

60 IF T=0 THEN I=1+1: A(I)=N 

70 IF S$< > ‘‘EOD”’ THEN 50 

80 CLOSE: END 


Ce programme fonctionnerait aussi 
bien si les nombres que l’on recherche 
étaient moins nombreux que 35, et/ou 
s’ils figuraient dans un tableau bien plus 
vaste, mélangés à des chaînes de carac- 
tères. Il est bien entendu immédiat de 
l'adapter à toutes les demandes possi- 
bles, les fichiers DIF étant de simples 
fichiers séquentiels traités comme tous 
les autres fichiers. Bonne chance avec 
votre nouvel allié, le tableur! 


André WARUSFEL 
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GRAPHISMES 


© MOL JE DESSINE 
DES HORREURS 


UJOURD'HUI, je vous propose un moyen 


Le programme consiste donc en un 
ensemble de commandes (voir la ligne 


commode de dessiner sur l'écran d'un Oric 1°: RÉPEAT : GOSUB 20 : UNTIL 
ou d’un Apple. Dessins statiques pour le moment, 
mais nous verrons une prochaine fois comment 


animer Vos créations. 


J'ai suivi ici le principe de la pro- 

grammation fonctionnelle : cha- 
que commande est interactive (elle est 
suivie d’un effet immédiat). Nous cons- 
truisons donc le programme par modu- 
les fonctionnels, ce qui permet, quand 
on le désire, d’ajouter facilement de 
nouvelles commandes. 


Les huit touches 
du clavier 
commandant 

les déplacements 


Sur le clavier, nous avons retenu un 
pavé de huit touches correspondant aux 
déplacements du curseur dans les huit 
directions habituelles (nord, nord-est, 
sud-est, sud, etc.). Pour cette partie des 
commandes, on se reportera au schéma 
ci-dessus. Le programme propose 
encore 14 autres commandes auxquel- 
les on accède en pressant une ou deux 
touches. Ce sont respectivement : 


e X : coordonnées ; 
e D: droite ; 

e R : rectangle ; 

e C : cercle ; 

e E : effacement ; 


e ? : position du curseur ; 
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° T ‘insertion d’un texte dans le dessin 
(pas de surprise : les majuscules sont 
obtenues par SHIFT, et DEL efface un 
caractère) ; 

eNP,AE et A Y (ou Ctrl P, Ctrl E...) 
permettent de changer la couleur du 
papier, de l’encre, ou de les inverser ; 
e ! : position haute ou basse du crayon 
virtuel (TRAce ou non) ; 

e Z. : choix du point zéro ; 

e 1 Z (ou Ctrl Z): retour 
« crayon » au point Zéro ; 

e Q : terminer et quitter l'écran. 


du 


NOT COMMAN) dont chacune est soit 
un déplacement, soit le tracé d’une 
droite, d’un rectangle, etc. 

25 IF DEPLAC THEN GOSUB 300 
30 IF XY THEN GOSUB 400 

35 IF DROITE THEN GOSUB 500 
40 IF RECTAN THEN GOSUB 600 
(..) 


Des commandes 


| à répétition 


Comme le programme, bien entendu, 
toutes les commandes qui le composent 
ont un début (identification de la com- 
mande) et une fin grâce à laquelle on 
passe éventuellement à une autre com- 
mande. Certaines d’entre elles, et 
notamment celles qui intéressent les 


FC T/auR 
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GRAPHISMES 


MOI, JE DESSINE DES HORREURS 


Écran graphique 
Programme pour Oric 


Auteur Max Hagenburger 
Copyright LIST et l’auteur 


O REM ** ecran graphique #* 

1 REM === 

S GOSUB 100 ‘repete les commandes 
10 REPEAT :GOSUB 20 :UNTIL NOT COMMAN 
15 GOSUB 2900 ‘fin ------- 

20 GOSUB 200 ‘commande : 

25 1F DEPL THEN GOSUB 300 

30 IF XY THEN GOSUB 400 

35 1F DROI THEN GOSUB 500 

40 IF RECT THEN GOSUB 600 

45 IF CERC THEN GOSUB 700 

50 IF EFFA THEN GOSUB 800 

59 1F OU THEN GOSUB 900 

60 IF TXTE THEN GOSUB 1000 

65 1F CYPE THEN GOSUB 1100 

99 GOSUB 2800 :RETURN = 
100 REM initialisations limite/basic 
110 LB=#4F00 :DOKE 162,LB:DOKE 166,LB 
120 PAPER O0 :INK 7 :HIRES :CLS :PRINT 
130 X0=13 :X9=238 :Y0=) :Y9=198 

140 CADRE=3100 :T=1 :GOSUB CADRE 

150 PRINT'ECRAN pour dessins animes 

"CHR$#(9é6)" Max"; 

160 H$=CHR$#(8) :INPT=3000 

170 BLANS=H$+CHR#S(128)+CHRS( 151) 

180 TRA=1 :VIT#=i :PAP=0 :ENC=7 

180 X=120 :Y=100 :X2E=X :YZE=Y 

190 GET A$ 

195 RETURN :REM ----- 

200 REM debut une commande 

202 :A=ASC(A$) 

205 IF A$="!" THEN TRA=1-TRA 

210 IF A$="2" THEN X2E=X :Y2E=Y 

215 1F A=26 THEN X=XZE :Y=Y2E ‘7 

220 DEPL=(A$="," OR A$=)>"]" AND A$<=" 
0" AND A$<)>"L" OR A$="U") 

225 DROI=(A$="D") 
230 RECT=(A$="R") 
235 CERC=(A$="C") 
240 EFFA=(A$="E") 
245 TXTE=(A$="T") 
250 CYPE=(A=S OR Â=ié DR A=25) 
290 :CURSET X,Y,3 

295 RETURN :REM ----- 

300 PRINT "UIOJKNM, ”; 

310 REPEAT :PRINT À$; 

320 IF A$="1" THEN Y=Y-1 

325 IF A$="J" THEN X=X-1 

330 IF A$="K" THEN X=X+1 

335 IF A$="M" THEN Y=Y+1 

340 IF A$="U" THEN X=X-1:Y=Y-1 
345 IF A$="0" THEN X=X+1:Y=Y-1 
350 IF A$="N" THEN X=X-1:7=Y#1 
355 IF A$="," THEN X=X+1:Y=Y+#1 
360 1F X<X0O THEN X=X0 :MUSIC 1,2, 
365 IF X2X9 THEN X=X9 :MUSIC 1,2, 
370 IF Y<YO THEN Y=YO :MUSIC 1,2, 
375 IF YDY9 THEN Y=Y9 :MUSIC 1,2, 
380 CURSET X,Y,TRA 

385 POKE 524,2 :MUSIC 1,0,1,0 

390 AS=KEYS :UNTIL A$="" 

395 RETURN :REM ----- 

400 REM Xy 

410 :GOSUB INPT 

420 X=XX :Y=YY 

495 RETURN :REM ----- 

500 PRINT "Droite:"; 

510 :GOSUB INPT 

520 IF X=XX AND Y=YY THEN RETURN 
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IXY=(AS="X") 
:OU=(A$=" 7") 


9530 DRAW XX-X,YY-Y,TRA 

540 X=XX :Y=YY 

595 RETURN :REM ----- 

600 PRINT "Rectangle:"; 

610 :GOSUB INPT 

620 IF X=XX OR Y=YY THEN RETURN 

630 DRAW 0,YY-Y,TRA :DRAU XX-X,0,TRA 
1DRAW 0,Y-YY,TRA :DRAW X-XX,0,TRA 

640 PRINT'Plein O"H$;:GET O$ 

650 PRINT O$;:1F 0$<)"0" THEN RETURN 
660 FOR LI=Y TO YY STEP SGN{YY-Y) 
670 CURSET X,LI,TRA :DRAW XX-X,0,TRA 
680 NEXT 

695 RETURN :REM ----- 

700 INPUT “Cercle rayon ";RA$ 

716 RA=VAL{RAS) 

720 IF RA=0 OR X-RA(XO OR X+RADXS OR 
Y-RACYO OR Y+RA)DY9 THEN PING :RETURN 
730 CIRCLE RA,TRA 

740 PRINT"'Plein O"H$;:GET 0$ 

750 PRINT 0$;:1F 0O$<)>"O" THEN RETURN 
760 FOR LIi=-Râ TO RA 

770 CO=SGR{RAXRA-LI#LI)-RA/460 

780 CURSET X-C0,Y+LI,TRA :DRAW 2x*C0,0 
, TRA 

790 NEXT 

795 RETURN :REM ----- 

800 PRINT “Efface l‘’ecran D"H$; 

810 GET O$ :1F 0$<>"Q" THEN RETURN 


820 TRA=I :VITX=i :PAP=0 :ENC=7 

830 HIRES :PAPER PAP :INK ENC 

840 X0=13 :X9=238 :Y0=1 :Y9=198 

850 T=1 :GO0SUB CADRE 

860 X=X2E :Y=Y2E 

895 RETURN :REM ----- 

900 PRINT "ou ?°; 

910 CURSET X,Y,2:WAIT 9 :CURSET X,Y,2 


tWAIT 9 
920 IF KEY#)"" THEN 910 
995 RETURN :REM -- 
1000 PRINT "Texte (shi=maju) "; 
1010 IF X+6>X9 OR Y+8Y9 THEN PING:RE 
TURN 
1020 GET À$ :1F A$<" " THEN RETURN 
1030 A=ASC{AS) :SHI=(PEEK(521))162) 
1040 IF NOT SHI AND A$=)"A" AND A$<=" 


2" THEN A=A+32 
1050 IF A=127 AND X+6»}X0 THEN X=X-6:C 
URSET X,Y,3:CHAR À,0,1-TRA :GOTO 1020 
1060 CHAR À,0,TRA :PRINT CHR$(A) ; 
1070 X=X+6:IF X+52X9 THEN X=X0:Y=Y+8 
1080 CURSET X,Y,2 
1090 GOTO 1010 ‘repete 
1095 RETURN :REM ----- 
1100 PRINT "’Encre ‘Papier ‘Ynverse"; 
1110 IF A=25 THEN R=PAP :PAP=ENC : ENC=R 
1120 EN=EN-(A= 5):IF ENC}7 THEN ENC=0 
1130 PA=PA-(A=16):I1F PAP)>7 THEN PAF=0 
1140 PAPER PAP :INK ENC 
1195 RETURN :REM ----- 


2800 REM fin une commande 

2810 CLS 

2820 PRINT'"UIOJKNM, Xy Dro Rec Cer Ef 
Ze ? Qui !'"; 

2830 IF TRA THEN PRINT HSHSHSBLANS 
2840 PRINT“Txt "’EPY 

2850 PRINT'X"X-12"Y"%:BLANS'?"H4 : 
2860 A=KEYS 

2870 GET A$ :1F A$="" THEN 2870 

2880 IF A$="Q" THEN INPUT'Quitte 1'EC 
RAN ‘0‘";0$ :1F 0$<>"O" THEN A$="2" 
2890 COMMAN= {AS «(>"0G") 

2895 RETURN :REM ----- 

2900 CLS:PRINT" fin du programme" 
2990 GET A$ :TEXT 

2995 END :REM =====2== 

3000 INPUT " X,Y "3;XXS8,YY# 

3010 XX=VAL(XXS) :YY=VALCYY#) 

2020 IF LEFT#IXX# ,11="4" OR LEFTSiXXS 
,12="-" THEN XX=XX+X 

3030 IF LEFT#(CYY#,1)="4+" OR LEFTS(YY# 

1192="-" THEN YY=YY+Y 

3040 IF XX#=)>"0" THEN XX=XX+12 

3050 IF XX)>X0 OR XX>X9 OR YY<Y0 OR Y* 
>Y9 THEN PING :POP 

3095 RETURN :REM ----- 

3100 REM cadre 

3110 CURSET X0-1,Y0-1,7T 

3120 DRAW X9-X0+2,0,T:DRAWO,Y9-Y0+2,T 
:DRAW X0-X9-2,0,T:DRAW 0 ,Y0-Y9-2,T 
3195 RETURN :REM ========= 


C'EST CHOUETTE 
UN ORDINATEUR! 
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D'un Basic à l’autre 


Pour adapter ce programme à un autre ordinateur, il faut considérer la limite de 
la mémoire Basic, les commandes spécifiques de la couleur, la définition de l’écran, 
l’inversion de l’affichage et les instructions graphiques. Ainsi, dans le cas de l'Oric, 
CURSET X, Y,1: DRAW XX-X, YY-Y, 1 place un point de coordonnées X et 
Y et trace un'trait jusqu'à XX, YY ; le troisième paramètre, ici 1, détermine la bril- 
lance du tracé. 

Quelques autres instructions, comme REPEAT... UNTIL ou MUSIC, ne se retrou- 
vent pas sur toutes les versions du Basic. A titre d’exemple, on trouvera ci-dessous, 
adaptées à l’Apple IL, la plupart des lignes qui font problème. 


10 GOSUB 20: 

110 LB = 8192: 

120 HGR : HOME 

130 X0 = 1:X9 = 

205 IF A$= "1" 

290  HPLOT X,Y 

380 HCOLOR= TRA: HPLOT X,Y 

390 GET A$: IF A$ > * * THEN 315 

530 HCOLOR= TRA: HPLOT TO XX,YY 

630 HCOLOR= TRA: HPLOT TO XX,Y TO XX,YY TO X,YY TO X,Y 

670 HPLOT X,LI TO XX,LI 

780 HPLOT X - CD,Y + LI TO X + CO,Y + LI 

910 HCOLOR= 3: HPLOT X,Y: HCOLOR= 0: HPLOT X,Y 

920 C = PEEK € - 16384): IF C = 63 OR C = 191 THEN 910 

2810 HOME : UTAB 21 

2830 IF TRAC THEN INVERSE : PRINT H$H$*11";: NORMAL 

3120 HPLOT XO - 1,Y0 - 1 TO X9 + 1,Y0 - 1 TO X9 + 1,Y9 + 
TO XO - 1,Y9 + 1 TO XO - 1,Y0 - 1 


IF COMMAN THEN 10 
POKE 115,0: POKE 116,32 
: VTAB 22 
278:Y0 = 1:Y9 = 
THEN TRA = 


(limite Basici 


158:TRA = 3 
3 - TRA 


(remplace REPEAT 


En l’absence de la fonction CIRCLE, on devra programmer le calcul des points 
formant le cercle, ce qui nous donne, toujours pour Apple, à la ligne 730 : 
HPLOT X + RA, Y 
FOR I = 0 TO 6.3 STEP 3/RA 
XI = X + RA * COS (1) 

YI = Y + RA x SIN (D 
HPLOT TO XI, YI : NEXT 

Moins commode : si l’on veut insérer du texte dans le dessin, il faudra décrire 
chaque caractère en DATA. Quant à l’inversion vidéo de l’écran, on l’obtiendra en 
utilisant par exemple le programme en langage-machine de LIST n° 2, page 80, dont 
voici une version décimale : 


1100 PRINT “’Ynverse"; 
1110 À = 768:D$ = 


"16903213300716000013200417700607325514500620020824723000716500720104642082397096" 


1120 FOR I = 1 TO LEN (D$) STEP 3 

1130 VU = VAL ( MID$ (D#,1,3)): POKE A,ViA = À # 1 
1140 NEXT 

1150 CALL 768 

1195 RETURN : 


J'ai TouT COMPRIS : C'EST Toi Qui 


CHIHVLUS 
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HE PIQUES Tous HES CHEWING -GUHS 


déplacements dans les huit directions, 
sont à répétition ; on maintient simple- 
ment la touche enfoncée. 

Selon les cas, la commande est déve- 
loppée comme un ensemble d’instruc- 
tions appelé par GOSUB et se terminant 
par RETURN, ou bien, si elle est très 
courte, exécutée directement (exemples : 
TRAce ou Z aux lignes 205 et 210). 
Remarquons d’ailleurs que TRA, varia- 
ble de la trace, est une bascule. Vraie ou 
fausse, elle vaut 1 ou 0, d’où la formule 
de la ligne 205 : TRA = 1 - TRA (si 
TRA valait 1, elle vaut zéro et vice 
versa). Quant à la commande Z, elle 
permet de mettre en mémoire la position 
d’un point du dessin, position que l’on 
retrouve avec Ctrl Z. 


Une option pour 


rectangles et cercles 


Certaines commandes requièrent l’en- 
trée au clavier des coordonnées d’un ou 
de plusieurs points (voir le sous- 
programme INPT, lignes 3000 à 3095). 
Deux possibilités : les coordonnées sont 
absolues et commencent par un chiffre, 
ou bien elles sont relatives au point qui 
vient d’être tracé et elles commencent 
alors par les signes + ou —. En valeur 
absolue, il faut décaler de 12 points de 
façon à ne pas dessiner dans les zones 
de la couleur de l’Oric. À tout moment, 
le programme vérifie que le dessin 
demandé ne va pas. sortir de l’écran. 


Une option pour les rectangles et pour 
les cercles : obtenir non pas seulement 
un contour, mais une figure pleine. A 
propos de l'instruction CIRCLE, on 
remarquera, ligne 770, la petite rectifi- 
cation nécessaire pour remplir le cercle : 
-RA/60. 


Signalons encore deux petits trucs que 
vous ne connaissez peut-être pas et qui 
pourront vous servir dans d’autres pro- 
grammes. L’expression A$ = KEYS$ 
sert ici à nettoyer la mémoire-clavier 
avant la saisie par GET A$. Enfin, la 
valeur de l’octet 526 règle la répétition 
d’une touche et son clic. 


Vous disposez maintenant de tout ce 
qu’il faut pour dessiner sur votre écran. 
Exercez-vous, et soignez spécialement 
les petites créatures, lutins, farfadets ou 
schtroumpfs de tout acabit : dans un 
prochain numéro de LIST, nous verrons 
comment gérer les dessins en mémoire, 
comment les mettre en mouvement, 
comment animer vos petits monstres. 


Max HAGENBURGER 
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LANGAGE 


FORTH 


ET L'ARITHMÉTIQUE 


ORTH est un langage ouvert : il accepte toute 
fonction, tout mot nouveau, même 

spécialisé. L'important n'est pas que ce 
vocabulaire soit standard, mais que son noyau le 
soit, Car on peut toujours ramener un mot 
nouveau, directement ou indirectement, à ce 
noyau. Il est donc légitime de prétendre que Forth 
est intégralement transportable. Alors, penchons- 
nous sur ce noyau, cassons-le, et... la 
transparence deviendra totale, « je vous le jure par 


Jupiter Ace » ! 


L'élément mémoire de base est la 
cellule de 16 bits qui est consti- 
tuée de deux octets alignés. Calculer en 
‘‘simple longueur’’ consistera à calcu- 
ler avec des opérandes dont chacun sera 
mémorisé sur 16 bits. Et par voie de 
conséquence, la ‘‘double longueur”? fera 
manier des chiffres occupant 32 bits. Il 
sera possible aussi de se livrer aux joies 
de la “triple longueur”’ ou de la ‘‘demi- 
longueur”” qui se basent sur des nom- 
bres de 48 bits dans le premier cas et 
d’un octet dans le second. Il suffira 
d'utiliser des opérateurs adaptés, pris 
dans le glossaire standard, le ‘‘noyau’’, 
ou nouvellement forgés. 
Limitons-nous, pour le moment, à la 
‘simple longueur”. La base binaire de 
tout langage informatique fait que les 
16 bits d’une cellule peuvent être tous 
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à zéro, valeur la plus basse de la cellule, 
ou tous à un, valeur la plus élevée. Tou- 
tes les valeurs intermédiaires, certains 
bits à zéro et d’autres à un, sont possi- 
bles, comme de juste. 

Vérifions-le ! Pour cela, il faut for- 
ger un opérateur adapté : 
: BIN 2 BASE ! ; 
: B? BIN . DECIMAL ; 


Chemin faisant, deux nouveaux opé- 
rateurs sont rencontrés. Ils doivent être 
définis. 

BASE (--): variable détenant la 
base de calcul courante ; son évocation 
empile son adresse. 

!(nadr-- ) : prend l’adresse qui est 
en sommet de pile et y introduit les seize 
bits de n, sous-sommet de pile. 


Dans le mot BIN, 2 est en sous- 


sommet de pile puisque BASE empile 
son adresse par-dessus et tout est prêt 
pour que le signe ‘‘!”” introduise 2 dans 
la variable. 


Ensuite dans B?, BIN fait passer en 
binaire, le point (.) affiche et DECI- 
MAL ramène au décimal. On en déduit 
logiquement que la définition de l’opé- 
rateur DECIMAL est : 

: DECIMAL 10 BASE ! ; 


Changeons 


de base 


Encore une remarque, cette procé- 
dure de chargement d’une variable est 
une procédure très importante, on la 
rencontrera constamment. Pour bien s’y 
habituer, chargeons : 

8 BASE !'et l’on est maintenant en 
‘‘octal”? 

16 BASE ! qui nous fait passer en 
‘‘hexadécimal”” 

32 BASE ! puisque le ‘‘duotriacontal”? 
ne nous fait pas peur ! 

(En ‘‘duotriacontal””, le système des 
habitants de la troisième planète de 
l'étoile répertoriée au catalogue NGC 
sous le numéro 5678, qui ont huit doigts 
à chacune de leurs quatre mains, on 
compté0123456789ABCDE 
FGHIJKLMNOPQRSTU 
V 10 11 12, etc.). 

Revenons à notre décimal avec DECI- 
MAL. Convertissons allègrement les 
nombres décimaux en binaire : 

0 B? et la réponse s’affiche : 0 OK. 
44 B? donne 101100 OK. 
255 B? donne 11111111 OK. Tiens, 
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Je vous jure par 


£eu JUPITER-ACE 


Pe 


Fe 


EP | 


Rappels de Forth 


E glossaire Forth comprend douze grands groupes de fonctions. Chacun 

d’eux a pour but de régler l’action synchronisée des opérateurs qui rési- 
dent en mémoire, morte ou vive, et des opérandes (données sous forme de nom- 
bres ou de codes ASCII) qui ont été empilés dans la pile de données. 

Ces données occupent maintenant des cellules (16 bits) ou des octets (8 bits, 
pour les amnésiques !). L'intérêt de pouvoir introduire une grande partie des opé- 
rateurs au clavier réside dans le fait que cela permettra de tester les programmes 
par morceaux, au fur et à mesure de leur entrée. Seuls les opérateurs de structu- 
ration sont réfractaires à l’utilisation en mode interprétation : pas question de 
passer DO...LOOP au clavier si ce n’est en mode compilation, c’est-à-dire entre 
les signes deux-points (:) et point-virgule (;). 


- 


Fonctions Opérateurs 


entrées, sorties et formatage C1, [, CLS, CR, VLIST 
L_ | __ 


manipulation de piles DROP, DUP, OVER, PICK, ROT, ROLL, 


SWAP,>R,R?7, R 


manipulation mémoire CL 
tests numériques et caténiques| L=], B1, [<], 0=,0>, 0< 
définition/compilation LT, ei LU] 


et sécurité 
13 L 


structuration DO, LOOP, IF, ELSE, THEN, I, J 


EN, O, 1 


arithmétique 


dictionnaire et vocabulaires FORGET 
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tiens ! Huit bits à 1, le maximum pos- 
sible dans un octet sera donc 255. 

9999 B? donne 10011100001111 OK et 
nous remarquons là qu’il y a 14 bits. 


Mézalors, et si nous mettions les 
16 bits de la cellule à 1, quelle valeur 
décimale cela nous donnerait-il ? Plu- 
tôt que de tâtonner avec B?, nous allons 
forger un autre outil. 


Une réponse 
inattendue 


Partant du principe que nous sommes 
en binaire, il suffit de repasser en déci- 
mal le temps de la conversion et de reve- 
nir en binaire aussitôt après. Cela 
s’écrit : 

: D? DECIMAL . BIN ; 

Nous voulons convertir du binaire en 
décimal, commençons donc par passer 
en binaire : BIN OK. 


Et maintenant nous pouvons 
chercher : 
1111 D? et la réponse apparaît : 31 OK. 
11111111 D? donne bien 255 OK. 
100000000 D? donne 256 OK. Voilà, il 
faut bien 9 bits pour passer de 255 à 256. 
Ils se répartissent sur les deux octets de 
la cellule. Le premier octet étant à zéro 
(00000000) et le deuxième n’ayant que 
le bit de droite à 1 (00000001). Ce qui 
donne une cellule de la forme: 
0000000100000000. La confirmation 
nous est donnée en entrant ce dernier 
nombre binaire sur seize chiffres et en 
le faisant suivre de D?. La réponse est 
bien : 256 OK. 


C'est très clair, non??? Alors, 
essayons maintenant : 1111111111111 
111 D? et la réponse ne se fait pas atten- 
dre, —-1 OK !!! 

Meeeuuuhnnnooonnn ! La machine 
n’est pas cassée ! Nous faisons simple- 
ment la connaissance des nombres 
signés. L’inventeur de Forth, Charles 
Moore, a pensé que puisque la plupart 
de nos calculs comportaient des valeurs 
faibles, le système numérique courant 
pouvait être conçu comme un cycle par- 
tant de 0 montant jusqu’à 32767, puis 
passant à — 32768 et revenant vers 0 par 
les nombres négatifs. 


Mais comme il peut nous être utile de 
nous passer des nombres négatifs, il a 
prévu la possibilité de travailler sur les 
valeurs absolues, les nombres ‘‘non- 
signés”. De ce fait, nous pourrons aller 
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LANGAGE 
FORTH ET L'ARITHMÉTIQUE 


Un programme Forth, pas à pas | | | 
Le sommet de pile est conventionnellement à droite. La pile est supposée chargée de 1 23456789 10 
(RETURN). Le ‘‘démontage” est fait ici avec 4 XROLL. 


: XROLL DUP 2 < Li done Pil c . 
IF DROP .‘‘<2 ROLL IMPOSSIBLE’ CR Liste Pile données | ile retour ommentaires 
FAURE XROLL 56789104 Début du mot en exécution 
DO SWAP R> R> 
ROT >R >R >R DUP 67891044 
LOOP 1 2 78910442 Second terme comparaison 
DO R> R> R> R> SWAP >R < 67891040 Booléen 0 car 4 < 2 faux 
ROT ROT >R >R IF 56789104 Mange le booléen et renvoie à ELSE 
th DROP idem Si vrai, aurait détruit 4 et aurait affiché texte 
_ 2 XROLL idem 
IMPOSSIBLE” 
idem Alinéa 
idem Reprend traitement après booléen faux 
67891044 Duplique n 
sans encombre de 0 à 65535, avec bien 78910440 Seconde borne du DO...LOOP 
sûr, des opérateurs spéciaux. Décou- | DO : : | - : 7 ne bornes a reQnE 
vrons le plus important de ceux-ci : U. ob Sn riens PPE 
Qu) qui affiche le sommet de pile 789404 10 Rotation sur pile 
16 bits en non-signé. 4567894 - Recharge la pile retour 
La coutume veut que l’on remplace idem Incrémente l'index, compare et renvoie après DO 
le n de la notation conventionnelle par 4567849 SWAP pour la deuxième fois 
u lorsqu'il s’agit d’une valeur non- : : : / : : ‘ ; Sr peer 
signée signée. ” s A 
Up Rues ER TE _— 3456784 0941 Passe sur pile retour 9 et limites (index au-dessus) 
Forgeons maintenant un outil qui idem 942 Incrémente l'index 
nous permettra de faire le même type de 3456748 942 Interversion sur pile 
conversion que D? mais en travaillant, 5674824 9 Passe limites sur pile 
cette fois-ci, sur les valeurs absolues. Le 5674248 9 : Rotation sur pile 
principe est le même, il suffit de rem- Fe . 5674 ob ie de plus en plus 
ess Au © à et . 2345647 |109843 | Quatrième SWAP sur pile 
Fra jé Ë on le : 4564734 098 Evacuation limites sur pile 
s’agit de valeurs ‘‘Absolues””, nous l’ap- 4564347 098 Rotation sur pile 
pellerons A? : 1234564 La bascule continue 
: A? DECIMAL U. BIN ; idem LOOP incrémente l’index, constate l'égalité 4=4, 
t puis : s : écrête les limites en pile de retour et passe à la suite 
_ Et puisque nous sommes toujours en 2345641 Empilage de 1 (nouvel index) 
binaire, nous pouvons faire, avec D? et 


123456 Bien sûr ! Il faut remettre la pile retour dans l’état 


A7, une série de comparaisons très ins- 


: à A : rimitif 
tructives (voir encadré ‘Comparaisons |R> R> R> R> 4561478 Fichtre, ça déboule ferme ! 
instructives’?). SWAP 4561487 Connu 
>R ROT ROT 3456814 [ Accélérons, opérations sur les deux piles 
fs >R>R 1234568 Envoi limites et index sur retour 
| LOOP idem 4 Incrémentation et renvoi 
Une bogue ? R>R>R>R> 5682479 Pas de surprise ! 
Mais non ! SWAP 5682497 Là non plus ! 
/ >R ROT ROT 4568924 1 Même chose que plus haut 
>R>R 2345689 Bascule des limites 
LOOP idem - DO...LOOP se termine 
La première remarque à faire est que |R> R> R> R> 68934710 |vidé On y arrive !.. 
le premier bit du deuxième octet (le plus | SWAP 68934107 Connu _. 
à gauche) est celui qui détient le signe | ?R ROT ROT 56891034 L'ordre en pile revient 
des valeurs signées : s’il est à 1, la valeur | ?R ?R 34568910 Pour le LOOP 


décimale sera négative, alors que s’il est a .. Sd ios rl es : Pur 

à O, elle sera positive. La deuxième M La hs 

à U, & Lie à ee | THEN(et FIN par;) |idem Sans oublier de refermer le ‘‘IF” !!! 

remarque est que le cycle positif-négatif 

est devenu apparent (avec les ‘‘non- 

signés”, on franchit la barre de 32768 Avec 4XROLL, on fait passer en sommet de pile le quatrième élément de la pile à partir du sommet : le 

sans difficulté). 7. Il se retrouve bien au sommet maintenant ! (Les signes > doivent être collés au R, avant ou après, pour 
Enfin, nous constatons que — 32768 donner >R ou R >. Une erreur à ce niveau et tout est à refaire ! 

et 32768 ont la même valeur binaire. Il 


LIST - PAGE 62 ‘ N° 5 - DÉCEMBRE 84 


te EST PRS DIFFICILE ’ 


HoN FORTH,i4 ACCEPTÉ 


Fvn 


Tous LES MOTS QUE - 


JE Lui DONNE! > 


Comparaisons instructives 


Nombre In Valeur Valeur 

binaire signée absolue 

introduit avec D? avec A? 
0000000000000000 0 OK 0 OK 
O111111HHHH1IIII 32767 OK | 32767 OK 
1000000000000000 | — 32768 OK | 32768 OK 
1000000000000001 | — 32767 OK | 32769 OK 
1011113111111111| —-16385 OK | 49151 OK 
1111111111111110 —2 OK | 65534 OK 
111111111111 —1 OK | 65535 OK 


faut de plus être très prudent avec la 
“base courante”, sinon on se heurte à 
des remarques acides. Ainsi, 44 D? 
entraînera : 

44 22 N'EXISTE PAS 


Ce qui, avouons-le, est un comble ! 
Mais il est sûr qu’en binaire, 44 n’existe 
pas !! 

Et puisqu’on est dans les exercices, 
repassons en décimal et entrons : 

8 BASE ! puis BASE ? donne 10 OK. 
4 BASE ! puis BASE ? donne 10 OK. 
32 BASE ! puis BASE ? donne 10 OK. 


Quouaaahhh ? La base a changé trois 
fois, et le résultat reste 10 ! Eh oui, 8 
en base 8 (l’octal), 4 en base 4, et même 
32 en base 32 s’écrivent bien : 10. 


Lors de mes débuts en Forth, j'avais 
rapporté ma console à la boutique, per- 
suadé qu’elle ne marchait pas. Et le 
revendeur, après l’avoir testée pour 
obtenir confirmation de ce fait éton- 
nant, était prêt à me l’échanger. Il a 
testé les autres consoles en magasin qui, 
oh ! horreur, faisaient la même erreur ! 
Il en déduisit que toute la fabrication 
avait une bogue ! Il me déclara grave- 
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secs 


ment qu’il fallait attendre le résultat de 
la réclamation auprès du fabricant. Je 
n’ai bien entendu, et pour cause, jamais 
plus entendu parler de lui : c’est en 
réfléchissant que j’ai trouvé la raison de 
cette fausse anomalie (mais si, je vous 
assure, je suis génial !). 


Cette petite histoire est rigoureuse- 
ment authentique, et prouve combien le 
Forth est peu connu des réseaux 
commerciaux. 


Puisque la ‘‘double longueur’’ existe, 
elle doit bien pouvoir être utilisée. En 
effet, Forth n’a nullement l’intention de 
s’arrêter à 65535. Mais aligner 32 bits 
pour faire une démonstration convain- 
cante de ce qui se passe avec la juxta- 
position de deux cellules, paraît difficile. 
Contentons-nous de raisonner par 
analogie. 


| Vers les grands 


| nombres... 


En fait, tout va se passer exactement 
comme pour les cellules de 16 bits. En 
nombres signés, le tout premier des 
32 bits notera le signe, avec le même 0 
pour le + et 1 pour —. Et cela permet- 
tra d’utiliser des valeurs de — 2 147 483 
648 à + 2 147 483 647, avec le même 
cycle positif-négatif, simplement plus 
grand. Quant à l’échelle des valeurs 
non-signées, elle ira de O0 à 4 294 967 
295 ! De quoi faire ! 


Pour manier de tels nombres, Forth 
a besoin d’une indication afin de savoir 


si un couple de cellules doit être pris 
comme un tout. Pour cela, il suffit d’in- 
troduire un point (.) dans un nombre, 
au début ou à la fin. La place a, en fait, 
peu d’importance. Forth sait que l’on 
est en double longueur lorsqu'il y a un 
point, et il attend l’espace pour consi- 
dérer la valeur du nombre. 


Mais d’abord, quelques opérateurs 
qui vont servir : 
D+ (di d2-- dr ) : prend en sommet 
de pile deux nombres en double lon- 
gueur, en fait la somme et empile le 
résultat en double longueur. 
D-— (di d2-- dr): prend les deux 
nombres en double longueur du sommet 
de pile, retranche d2 de di, et empile le 
résultat en double longueur. 
D. ( d -- ) : prélève le sommet de pile en 
double longueur et l’affiche. 


Il y en a bien d’autres, mais il est pré- 
férable de les inventorier selon les 
besoins. Pour l'instant, il nous manque 
l’équivalent de U., c’est-à-dire un opé- 
rateur qui affichera les valeurs double 
longueur en non-signé. 


Comme il est de très faible utilité, cet 
opérateur n'existe pas dans le Forth de 
base de certaines machines. Aussi, il 
faut le fabriquer. II comprend les trois 
mots principaux utilisés dans les opéra- 
tions de formatage : 

: UD. <# #S #> TYPE; 


Et maintenant, faisons les deux plus 
grandes additions possibles en double 
longueur : 

2147483647. 2147483648. D+ UD. et 
la réponse sera 4294967295 OK. 
2147483648. 2147483648. D + UD. et 
la réponse sera 0 OK. Ce deuxième 
résultat n’a rien pour nous surprendre, 
il est analogue à celui rencontré en sim- 
ple longueur non-signée. 


Contrôlons à présent que la place du 
point dans le nombre double longueur 
est indifférente : 

2000000000. 20000.00000 D + UD. 
donnera la valeur 4000000000 OK. 
Voilà qui est décisif, non ? 

Déjà, nous pouvons faire pas mal de 
choses. Par exemple, fabriquer des 
mots, puis d’autres mots qui utilisent les 
premiers : c’est cela programmer en 
Forth ! Ainsi, créer un mot pour comp- 
ter de deux en deux, de 20 à 80 inclus ; 
un mot pour aligner les carrés des dix 
premiers nombres ; un mot pour aligner 
les carrés des nombres pairs de 20 à 80... 


Et comme me disait encore récem- 
ment J. Delafontaine, un illustre prati- 
quant de notre langage : « Forth et 
méthode font plus que Basic ni que 
rage ». 


Bernard LAMBEY 
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LANGAGE-MACHINE DU PC-1251 


UNE PETITE 
MUSIQUE DE POCHE 


N bricolant un peu le PC-1251, mais de façon 
purement logicielle, on peut le transformer en 


boite à musique. C’est l'affaire de quelques octets 


en langage-machine. 


Une remarque sur l’affichage du 

PC-1251 va nous permettre de 
déboucher sur des applications sonores 
auxquelles le bip de l’appareil ne nous 
a pas habitués. 


La routine qui permet de maintenir 


l’affichage lors de l’exécution d’un pro- 
gramme a la forme suivante : 


02 X LIA X 
FF BI CAL  IFBI 
37 RTN 


La valeur X est donc placée en A 
avant l’appel des sous-programmes 


(1) I se peut que l'adresse 1FB1 ne soit pas la bon 


débutant à l’adresse 1FB1. Voyons quel 
est le sous-programme (1). 


IFB1 12 5F  LIP SF 
DB EXAM 
DF OUTC 
37 RTN 


La valeur X se trouve donc transférée 
à l’adresse 5F qui est celle du port €; 
puis l’instruction OUTC envoie cette 
valeur aux périphériques. Le port C est 
un port de commande : chaque bit de 
la valeur X que l’on y place correspond 
à une fonction. Ainsi X = 1 (bit 0) 


ne sur tous les modèles du PC-1251. L'ordre PEEK 


étant sans effet dans cette zone, on vérifiera la présence de cette routine grâce au procédé publié dans 
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QUESTCE QUE \//cesr n Pierre 
CEST QUE CE TRUC J\cesr ee 


Has CES 
TouT Ses 


| be s 


correspond à l’affichage ; X = 32 (bit 
5) au BEEP ; X = 8 (bit 3) à l’arrêt de 
la machine ; etc. Si X = 16 (bit 4), le 
haut-parleur du poquette émet un 
claquement très discret et reçoit alors 
non pas une brève impulsion, mais une 
tension continue. 


Le langage-machine 


Fee 


Pour vous en convaincre, essayez le 
programme 1. En approchant votre 
oreille de la machine au moment de 
l'exécution, vous discernerez à deux 
reprises un claquement. En effet, le 
signal que reçoit alors le haut-parleur a 
la forme que voici : 


CALL C000 CALL C000 
(X = 16) (X = 0) 


Cette particularité peut être mise à 


[À PARAIT que L'on 
PEUT FAIRE DE LA 
RER, AVE: 


Al 


E) 


_ _— ue 

uPare LES ET PIERRE Qui DEPECHE Tor AU LIEU DE 

D'UN ENGIN! VA REVENIR FAIRE LE CLown ‘ 
Col 

= De r OÙ 

- \ 

) 
We 


DE LA HUSIQUE = 
UN Ur” PAREIL ? 


| 
= | = 
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GAYEST ÇA TS 


— 


CHIMUEVS 
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2 


Programme 1 


Zizique de poche 
Programmes pour PC-1251 
Auteur Marc Leygnac 
Copyright LIST et l’auteur 


Es 
: 2H PÛKE ÉCOND: ES RG 
Programme 2 Hard EF FiRBloédEse 
Fe GB EE s LOG: EFFIÈBls 
C31829s ÉDCs EST 
2H:FÛR I=4 TO 24ÿ STEP 
« 16: PÜKE ECHB1:255-1 
K ï PDKE &CADrsI: CâLL 
&CDHB: NEXT I 
LHIPORE ECOUs Ris ECD se 
: Programme 3 CEE EEETUPETETE SET 
Un exemple Das kB RFF ER 
d'utilisation 15:PÛKE KCODBs Bd: 00 
Dis Us EFFsRBlr RCD 
23380Er&3T 
profit pour faire émettre par la machine Le programme 3 en langage-machine ” Re : FRERE 
des sons autres que le bip. Il suffit pour = s 
cela d’envoyer au haut-parleur plusieurs C000 10 | co | oc | LipP C00C |DP pointe T 
impulsions analogues à la précédente en C003 03 00 LIB 0 
jouant sur leur largeur (fréquence) et sur |-C005 | 83 LP 3 P pointe le registre B 
leur nombre (durée). Mais il faut queces || CO06 53 MVDM (DP) + (P) : le contenu de B 
impulsions se succèdent très rapide- est placé en CO0C 
ment. C’est la raison pour laquelle le |  C007 02 | 10 LIA 10 
langage-machine s'impose. | no . _ te . | Impulsion de largeur 
Sur ce principe, voir ci-dessous la || Coop | 02 | 00 LIA 0 proportionnelle à (B) 
courte routine permettant de générer des || CO00F FF | BI CAL 1FBI | 
sons. LA 1 C2 INCB B B +1 
A Srni icii ù C 112 29 0E JRNZM OE Si B < 255 on recommence 
ne no dou à 1e moin Le RTN A 
: S Avec le programme 3 et la routine 
: : 5 : ; à li N nombre d’impulsions correspondante, on utilise la possibilité 
FF B! CAL 1FBI Front montant qu'ont les programmes en langage- 
4E T WAIT T Attente de T cycles machine de se modifier en Cours 
0? 00 TA EN 0 | d’exécution : le PC-1251 émet des sons 
FF |  Bl CAL 1F Bi |Front descendant dont la fréquence varie. L’astuce 
C3 DECB B+B-1! consiste en fait à modifier à chaque 
29 0 C JRNZM 0 C Si B + 0 on recommence boucle la valeur T de WAIT T. 
3 RIN _] Dans l’exemple retenu, la fréquence 


Routine de génération de sons 


durée proportionnelle à N X (œ + T) 
où & est une constante correspondant 
aux instructions autres que WAIT T 
(pour obtenir des sons de durée fixe, 
quelle que soit leur fréquence, il faut 
donner à N une valeur fonction de T). 
Si l’on désire augmenter la durée d’un 
son, il faut alors un compteur de boucle 
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non pas sur un octet (LIB N), mais sur 
deux. 


La ligne 10 du programme 2 charge 
cette routine, puis les paramètres T et 
N sont « pokés » à la ligne 20 avant 
l’appel. Ici, tout est affaire de goût et 
d’imagination. Remplacez par exemple 
le quatrième octet (& 10) par & 20, et 
écoutez. 


du son diminue, maïs on peut remplacer 
LIB 0 (03 00) par LIB 255 (03 FF) et 
INCB (C2) par DECB (C3) pour qu’elle 
augmente, ou mettre bout à bout les 
deux types de routines. 


Et maintenant à vous de trouver de 
nouvelles variations musicales, ou de 
nouveaux bruitages. 


Marc LEYGNAC 
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UNE PROCÉDURE PASCAL 


LES NOMBRES 


ET LEUR FORMAT 


E langage Pascal ne dispose pas, à l'inverse du Basic, d’une 
instruction qui «formate» les valeurs numériques, 
c'est-à-dire qui les écrit sous la forme que l’on désire. 


Une procédure est donc nécessaire afin de préparer 


l'impression d'un numéro d'identification de sécurité sociale, 
d'un montant ou d’un code postal. 


Dans la déclaration de la procé- 

dure Pascal présentée ici, procé- 
dure de « formatage », le premier para- 
mètre, VALEUR, est une variable de 
type ENTIER. Il contient la valeur à 
formater. Son type doit être défini dans 
le programme ou l’unité de bibliothèque 
dans laquelle est insérée cette procédure. 
Selon les utilisations prévues, et le com- 
pilateur utilisé, ce type pourra être 
déclaré selon l’une des trois formes 
suivantes : 


entier — integer ; 
entier = integer [L] ; 
entier = longinteger ; 


Format, un 


paramètre essentiel 


Le second paramètre indique le for- 
mat à utiliser pour mettre en forme le 
nombre mémorisé dans VALEUR. La 
structure à utiliser pour les formats est 
spécifiée plus loin. 

Enfin, le troisième paramètre, VAL- 
FOR, représente une valeur qui est 
retournée par la procédure. Il contient 
la VALeur du premier paramètre, FOR- 
matée selon la règle indiquée par le 
second. 


Dans cette procédure, le deuxième 
paramètre, FORMAT, est essentiel : il 
permet de spécifier la manière de pré- 
senter la VALEUR. 


Ce format est une chaîne qui doit 
avoir la même longueur que celle dési- 
rée pour le résultat. N’importe quel 
caractère peut apparaître dans cette 
chaîne, à l'exclusion de cinq, qu’ils 
soient en majuscules ou en minuscules. 
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Ces caractères ont une signification par- 
ticulière, indiquée dans le tableau 
intitulé Caractères interdits dans la défi- 
nition du format. 


Le formatage du nombre s’effectue 
de la façon suivante : chaque caractère 
apparaissant sans le format, et qui n’est 
pas présent dans le tableau, est recopié 
tel quel dans la chaîne formatée. Pour 
les caractères présents dans ce tableau, 
la fonction correspondante est réalisée. 
Les exemples d’utilisation sont nom- 
breux et très variés. 


Les codes postaux : le format doit 
être « ZCCCC ». Le premier chiffre en 
effet est toujours un zéro, puisque les 
codes postaux sont composés de cinq 
caractères numériques. Le Z permet 
donc de forcer le premier chiffre, pour 
les départements de |’ Ain (01) à l'Ariège 
(09) où les codes postaux n’ont donc que 
quatre chiffres lorsqu'ils sont représen- 
tés sous forme d’entiers. 


Les nombres décimaux : il arrive sou- 
vent, en informatique, de mémoriser des 
nombres avec une unité différente de 
celle qui est couramment utilisée. C’est 
le cas de montants qui sont stockés en 
centimes, mais sont presque toujours 
exprimés en francs. Il est alors néces- 
saire d’insérer une virgule décimale 
entre l’antépénultième et l’avant-dernier 
chiffre. Mais un problème survient lors- 
que ces montants sont inférieurs à un 
franc. Pour représenter 2 centimes, par 
exemple, ils apparaissent sous la forme 
« ,02 » ou même « , 2 », au lieu de 
« 0,02 ». La procédure résoud ce pro- 
blème avec le format « CCCCCZ,ZZ ». 
La virgule décimale est alors position- 
née correctement, un zéro étant tou- 
jours placé dans la colonne des francs 
et des dizaines de centimes. 


Les montants des chèques : les chè- 
ques émis automatiquement par les 
systèmes informatiques n’ont presque 
jamais de lignes où le montant est indi- 
qué en toutes lettres. En contrepartie, 
il existe deux zones où la valeur doit être 
écrite sous forme numérique. Pour évi- 
ter les falsifications, il est nécessaire de 
faire précéder le premier chiffre de 
caractères de remplissage. On pourra 
donc spécifier à cette procédure un for- 
mat comme « EEEEEEZ,ZZ » ou com- 
me « TTTTTTZ,ZZ ». Le premier don- 
nera, par exemple, ***3141,59 et le 
deuxième ---3141,59, 


Les numéros de sécurité sociale : s’ils 
ne sont pas correctement formatés, les 
numéros de sécurité sociale, présentés 
sous la forme d’une suite de treize chif- 
fres sans séparateur, sont difficiles à 
lire. Cette routine permet de formater 
de tels nombres. Pour les numéros de 
sécurité sociale, le format utilisé sera le 
suivant : « C.CC.CC.CC.CCC.CCC ». 


Les sommes comptables : les éditions 
de comptabilité sont mieux présentées 
et plus faciles à exploiter lorsque les 
montants sont présentés sous forme de 
sommes. Le format utilisé pour un 
montant de 2718280,00 F sera donc 
celui-ci : « CC CCC CCZ,ZZ ». Il per- 
mettra d’afficher ou d’imprimer cette 
somme sous la forme : 2 718 280,00. 


Malgré ses performances, cette pro- 
cédure reste assez simple sur le plan de 
la programmation. Elle utilise une fonc- 
tion interne, appelée CARACTERE. 
Son rôle est de retourner soit un chiffre 
appartenant au nombre qui est mémo- 
risé dans le paramètre VALEUR de la 
procédure principale FORMATER, soit 
de retourner le caractère de remplace- 
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Procédure de formatage 


procedure fo 


var ï: 


rmater (valeur : entier ; format : string ; var valfor : 


: integer ; 


signe : char ; 


function caractere (remplacant : char) : char ; 


var 
begi 
if 


ancien : entier ; 
n 
valeur = 0 


then 


caractere : remplacant 


else 


end 


begin 
valfor : = 


begin 
ancien : 
valeur : 


valeur ; 
valeur div 10 ; 


caractere : = chr (trunc (ancien-(10+valeur)) + ord(0°)) ; 


end 


, 


format ; 


if valeur > = 0 


then 


signe : =”? +? 


else 
begin 
sign 


valeur : 


end ; 
OT 1: = 


, à « 


èi = ; 
— — valeur 


length (format) downto 1 do 


case format [il] of 


: valfor fi] : 
: valfor [il] : 
: valfor fi] : 
: valfor fil] : 
: valfor fi] : 


caractere (” ?) ; 
caractere (?*°) ; 
signe ; 

caractere (*—”); 
caractere (’0’) 


WU 


Il 


Caractère 


Caractères interdits dans la définition du format 


Mnémonique 


Signification 


Couc 


Eoue 


Chiffre 


Etoile 


Signe 


Tiret 


Mettre à cet emplacement le prochain chiffre du 
nombre. Si tous les chiffres ont déjà été placés,met- 
tre un espace. 


Mettre à cet emplacement le prochain chiffre du 
nombre, Si tous les chiffres ont déjà été placés, met- 
tre une étoile. 

Mettre à cet endroit le signe du nombre, c’est-à-dire 


,, 


le caractère ‘‘ +?” ou ‘‘—?””. 


Mettre à cet emplacement le prochain chiffre du 
nombre. Si tous les chiffres ont déjà été placés, met- 
tre un tiret. 


Mettre à cet emplacement le prochain chiffre du 
nombre. Si tous les chiffres ont déjà été placés, met- 
tre un Zéro. 


Dans certains cas, le résultat est indéfini… 


ment qui lui est fourni s’il ne reste plus 
de chiffres dans le nombre VALEUR. 


Pour réaliser ce traitement, cette 
fonction a besoin de l'opération 
modulo. Comme celui-ci n’est pas tou- 
jours implanté pour les entiers longs sur 
certains compilateurs Pascal, il est 
simulé à l’aide de la division entière. 


passés en revue 


Avec cette fonction, le corps de la 
procédure FORMATER est assez court. 
Tout d’abord, le format à utiliser est 
stocké dans la chaîne qui sera formatée. 
Cela permet de dimensionner correcte- 
ment cette variable, et de simplifier le 
traitement pour les caractères qui n’ont 
pas à être remplacés. Dans un second 
temps, cette procédure détermine la 
valeur de la variable SIGNE chargée de 
mémoriser un caractère représentant le 
signe du nombre. 


Tous les symboles du format qui a été 
indiqué à la procédure sont ensuite exa- 
minés. Ils sont passés en revue à partir 
de la fin, puisque le nombre à formater 
doit toujours être cadré à droite. Les 
caractères ne représentant pas une com- 
mande du format ne sont pas modifiés, 
et sont intégralement recopiés du format 
à la chaîne formatée. Par contre, dès 
qu’un caractère indiquant une com- 
mande est détecté, il est modifié. La 
procédure fait donc dans certains cas un 
appel à la fonction CARACTERE, en 
lui indiquant le symbole de remplace- 
ment. Cette routine lui retourne alors, 
soit un chiffre de VALEUR, soit ce 
même caractère. Si la commande spéci- 
fiait un signe, celui mémorisé dans la 
variable SIGNE est tout simplement 
stocké dans la chaîne formatée. 


Il faut noter que certains compila- 
teurs, strictement conformes à la norme 
du Langage Pascal définie par Wirth, 
génèrent un code qui a un résultat indé- 
fini lorsqu'une instruction CASE traite 
un cas qui n’a pas été prévu. Pour remé- 
dier à ce problème, il suffit de consul- 
ter l’encadré ci-dessous. Et tous les for- 
matages deviennent alors possibles. 


Thierry CHAMORET 


Lorsqu'une instruction CASE traite un cas qui n’a pas été prévu, certains compilateurs génèrent un code au résultat indéfini. 
Dans ce cas, il faut insérer dans la procédure de formatage, la condition : 


if format li] in [C','E’,'S",T’','Z 
Cette condition doit être placée ayant l’instruction : 
case format [i] of 
Elle permet ainsi d’éliminer les cas non prévus du sélecteur. 
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CURE RCE PARC PES D 


Ces Sly 2 lien 


LIST - PAGE 67 


LES DIXT EST S DE LIST 
_ MESURER LE BASIC 


l'écriture de fichiers sont impossibles à 
cause de l’absence de fonctions d’ouver- 
ture de fichiers (voir les cases « vides » 
du tableau). 


En revanche, sur Dai 48K, l’écriture 
(ainsi que la lecture) d’un fichier (tests 
9 et 10) peut avoir lieu de deux façons. 
L'écriture 10000 fois répétée d’un même 
secteur du disque dure environ 10 500 
secondes (résultat publié dans LIST 4) : 
à chaque fois, la tête se positionne sur 
le secteur en question. Mais l’écriture de 
10000 chaînes « LISTEST » sous forme 
de fichier à accès direct ne dure plus 
que... 77 secondes. 


Pour ce qui est des comparaisons, 
elles ne peuvent être faites qu’entre des 


OUR évaluer en partie les performances d’un 

ordinateur donné, et plus précisément 
les qualités de son Basic, nous avons retenu 
provisoirement dix tests, Ils permettent de 
mesurer la vitesse avec laquelle la machine 
exécute ses appels de sous-programmes et 
diverses instructions de traitement de chaînes de 
caractères, de calculs arithmétiques, d’opérations 
sur les tableaux de variables, etc. 


Si les dix tests présentés ici permet- 

tent de se faire une première idée 
de la rapidité de son ordinateur, il est 
souvent nécessaire de les adapter au 
Basic de chacun. Ainsi, les fonctions qui 
permettent de programmer le tracé gra- 
phique (test 8), l’écriture ou la lecture 
de fichiers (tests 9 et 10), quand elles 
existent, ne sont pas les mêmes sur tous 
les matériels. Par exemple, Alice 90, Vic 
20, ZX81... ne possèdent pas de fonc- 
tion graphique, et donc le test 8 ne peut 
pas leur être appliqué. De même, sur de 
nombreux ordinateurs, la lecture et 


matériels « comparables ». Les perfor- 
mances d’un PC-1260, ordinateur de 
poche, ne peuvent pas être mesurées à 
celles d’un BBC, ordinateur « familial » 
au Basic très complet et très rapide (voir 
l'essai dans LIST 3, page 30). Mais il est 
toujours possible, et plus raisonnable, 
de comparer les ordinateurs de poche 
entre eux, ou les ordinateurs ayant un 
même processeur (Colour computer 2, 
TO7 et MOS, BBC et Electron... — voir 


A le tableau). 


LIST 


Test 1 - Boucle vide 

10 FOR I = 1 TO 10000 
20 NEXTI 

30 END 


Test 2 - Sous-programmes 
10 FOR I = 1 TO 10000 
15 GOSUB 100 

20 NEXTI 

30 END 


100 GOSUB 110 
110 RETURN 


Test 3 - Matrice 

5 DIM A(10,10) 

10 FORI=1ITOI0 
12 FOR J = 1 TO 10 
13 FOR K = 1 TO 100 
15 A(1J) = K 
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17 NEXTK 
18 NEXT J 
20 NEXTI 
30 END 


Test 4 - Opérations sur les 
chaînes de caractères 
5 A$ = « LISTEST » 
10 FOR I = 1 TO 10000 
15 B$ = LEFTS$(AS,2) 
+ MIDS(AS$,3,3) 
+ RIGHTS(AS,2) 
20 NEXTI 
30 END 


Test 5 - Arithmétique 

10 FOR I = 1 TO 10000 
15 J = [+7 + 3/1 

20 NEXTI 

30 END 


Test 6 - Calcul scientifique 
10 FOR I = 1 TO 10000 
15 J = SIN (LOG(I)) 
20 NEXTI 

30 END 


Test 7 - Affichage 
10 FOR I = 1 TO 10000 
15 PRINT CHRS(I1) ; 
« LISTEST » ; I 
20 NEXTI 
30 END 


Test 8 - Tracé d’une ligne 
graphique 

10 FORI = 1 TO 10000 
15  LINE(0,0) — (319,199) 
20 NEXTI 

30 END 


Test 9 - Ecriture de fichiers 
A$ = « LISTEST » 
OPEN «O», # 1, 

« FICHIER » 

FOR I = 1 TO 10000 
PRINT # 1, A$ 
NEXT I 

CLOSE 

END 


Test 10 - Lecture de fichiers 
6 OPEN «I»,# 1, 
« FICHIER » 
10 FOR I = 1 TO 10000 
15 INPUT # 1, A$ 
20 NEXT I 
25 CLOSE 
30 END 
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Résultats des dix tests * 


Ordinateurs 


Test 4 


Test 5 


Test 6 Test 7 


Alice 90 


135 


87 


Pom 


Apple Ile 


136 


93 


460 237 
9 chiffres 

479 130 
9 chiffres 


484 404 
280xX160 | disquette 


Atari 600XL 


271 


2040 225 
9 chiffres 


1766 
320 x 192 


6803 


710 


disquette me 


6502 C 


Atmos 


BBC 


187 


[9 chiffres 


629 
9 chiffres 


405 


766 141 
240x200 | disquette 


239 1944 
160xX256 | cassette 


77 
disquette 


1944 
cassette 


6502 


6502 A 


Canon X-07 


Colour computer 2 


Commodore 64 


Dai 48K 


1680 
14 chiffres 


+ 


2830 43300 


120 x 32 cassette 
AS 


43300 


T 
NSC 800 
cassette 


598 
9 chiffres 


295 
9 chiffres 


799 
6 chiffres 


880 998 
256xX192 | cassette 


731 394 
320x200 | disquette 


998 
cassette 


323 
disquette 


6809 


6510 


2518 77 
336x256 | disquette 


Dragon 32 


590 
9 chiffres 


874 1103 
256X192 | cassette 


62 
disquette 


1103 
cassette 


8080 À 


Electron 


Hector HRX 


HP-71B 


578 


9 chiffres 


202 
7 chiffres 


299 
160 x 256 


423 
231 x 243 


HX-20 


Lynx 48K 


823 
15 chiffres 


558 
9 chiffres 


420 
mémoire 


1234 2460 
120X32 | cassette 


200 
mémoire 


2400 
cassette 


814 
7 chiffres 


MO $ 


376 
6 chiffres 


2520 
256 x 248 


1430 940 
320X200 | cassette 


MPFII 


PB-700 


Oric-1 


505 
9 chiffres 


517 
280 x 192 


940 
cassette 


2100 
12 chiffres 


2750 
160 x 32 


1058 
9 chiffres 


897 
240 x 200 


PC-1260 


PC-1350 


3180 
12 chiffres [2 


3180 
12 chiffres 


QX-10 


Spectrum 


TI99/4A 


305 
16 chiffres 


3500 
150 x 32 


67 
320x200 | disquette 


TO 7 


TRS-80 Modèle 1 


Yeno MSX 


1180 


8 chiffres 


610 


_1256x 176 


126 
disquette 


3190 

14 chiffres 
417 

6 chiffres 


1010 
disquette 


1037 
320 x 200 


1840 
disquette 


516 
6 chiffres 


ZX81 (mode fast) 


445 
9 chiffres 


369 
disquette 


1937 
16 chiffres 


1165 1863 


L 256X192 | cassette 


1150 
9 chiffres 


ZX81 (mode slow) 176 


Les temps sont exprimés en secondes 
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4540 5300 
9 chiffres 


310 
disquette 


1863 
cassette 
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LA BOÎTE 
A MALICES... 


RENEZ un programme et ôtez-en très 

soigneusement toutes les astuces, des plus 
élémentaires aux plus subtiles. Vous êtes certain 
de n’en avoir laissé passer aucune ? Bien. Que 
reste-t-il ? Rien, ou peut-être une bogue ou deux 
(tout le monde peut se tromper). En fait, tout 
programme n'est qu'une suite d'astuces. Dans les 
pages qui suivent, vous en trouverez un grand 
nombre. Certaines sont de portée très générale. 
D'autres ne valent que pour un matériel 
particulier. Mais dans tous les cas, vous aurez 
intérêt à être curieux, à fouiner dans la boîte à 
malices, Même s'il ne s’agit pas de votre machine, 
vous trouverez souvent des idées à reprendre. Par 
ailleurs, vous avez sans doute vos propres 
recettes, vos façons de faire. Si ce ne sont pas 
des secrets que vous cherchez à conserver 
jalousement, faites-en part au journal, Celles qui 
nous paraitront les plus intéressantes enrichiront 
à leur tour la boîte à malices, Tous les lecteurs 
pourront ainsi en profiter. 


LIST 
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ORIC:1 


BONNES 
ADRESSES 


Voici une liste de variables 

système et de vecteurs, utiles en 
mémoire vive, qui va certainement 
intéresser les possesseurs d’Oric-1 et 
d’Atmos. 

Les adresses énumérées sont en 
hexadécimal et elles sont souvent les 
mêmes sur les deux versions (Oric-1 et 
Atmos) ; lorsqu'elles diffèrent d’un 
ordinateur à l’autre, il en est fait 
mention. 


12, 13 : pointeur de l’écran où sera 
effectué le prochain PRINT ou affi- 
chage avec les routines de la mémoire 
vive. 


18, 19 : pointeur utilisé par l’inter- 
préteur Basic pour stocker dans la 
table des mots du Basic (en COEA) 
l’adresse du caractère qui est comparé 
aux caractères des instructions. 


1A, 1B, 1C : contiennent le vecteur 
de retour à la saisie Basic. On y trouve 
le code machine JMP AFFCH qui 
affiche le message ‘‘Ready”’. Atten- 
tion, sur Oric-l, AFFCH =CBED, 
mais sur Atmos AFFCH = CCB0. 


Ce vecteur qui permet de détourner 
l’affichage de ‘‘Ready’’ pourra être 
utilisé en cas de protection de pro- 
grammes ou de changement de mes- 
sage par exemple. 


2F : adresse de stockage de l’octet 
traité par les routines cassettes. 


30 : position horizontale du curseur. 
Une modification de cet octet n’a 
aucun effet. 


31 : sur Oric-1, il s’agit de la lon- 
gueur d’une ligne sur l’imprimante, 
modulo 13 (une des bogues du Basic 
de cette machine). Sur Atmos, c’est la 
longueur d’une ligne à l’écran. 


33, 34 : utilisés pour le passage de 
paramètres entiers (2 octets). Atten- 
tion, les valeurs déposées dans ces 
octets sont très ‘‘volatiles””, il vaut 
mieux les traiter en langage-machine 
directement. 


35 à 83 : mémoire tampon du cla- 
vier. Tous les caractères frappés au 
clavier y sont déposés, les uns après les 
autres, sous forme d’une liste (struc- 
ture FIFO, First In, First Out, c’est- 
à-dire premier entré, premier sorti). 
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ET ATMOS 


Après avoir été interprétés, les mots- 
clefs du Basic y sont redéposés sous 
forme de code et les autres caractères 
en code ASCII, le tout se terminant 
par un code nul. 


91, 92 : utilisés entre autres par la 
routine de restauration des lignes 
Basic. Au retour de cette routine, ils 
contiennent l’adresse de la fin du pro- 
gramme. C’est particulièrement utile 
pour rétablir ce dernier après un 
NEW. 


9A, 9B : contiennent l’adresse du 
début de la zone Basic. Par défaut, 
c’est l’adresse 501. L’adresse précé- 
dente (500) doit contenir un 0. 


9C, 9D : où se trouve l’adresse de 
la fin du programme Basic et du début 
de la zone des variables. 


Les problèmes que vous rencontrez 
avec l’Oric-1 lors du chargement de 
zones de mémoire viennent de ces 
octets. Ils sont positionnés à tort au 
sommet de la zone chargée et lors de 
la modification d’une ligne de pro- 
gramme, des blocs de mémoire sont 
intempestivement déplacés ce qui pro- 
voque à l’écran les résultats curieux 
que vous avez certainement pu déjà 
observer ; et si le pointeur est placé 
trop haut, vous obtenez le message 
OÙT OF MEMORY ERROR. 


9E, 9F : fin de la zone des variables 
simples. 


A0, Al : fin de la zone des varia- 
bles simples et des variables en 
tableaux. 


A2, A3 ou Ad, A5 : fin de la zone 
des chaînes de caractères. Lorsqu’une 
variable alphanumérique est créée, les 
caractères qui la composent se placent 
en ordre décroissant à partir de cette 
adresse. Concluez-en qu’au départ, 
lorsqu'il n’y a pas encore de variables, 
ce pointeur contient l’adresse de la fin 


c’est-à-dire avec deux codes ASCII 
dont le bit 7 dépend du type de 
variables. 


B6, B7 ou BS8, B9 contient 
l’adresse où a été placée la dernière 
variable créée, numérique ou 
alphanumérique. 

DO à DS : accumulateur flottant 1. 

D8 à DD : accumulateur flottant 2. 


La structure des accumulateurs est 
la suivante : le premier octet contient 
l’exposant, le bit 7 en indique le signe 
(1 = positif, 0 — négatif); sur les quatre 
octets suivants se‘trouve la mantisse 32 
bits, et sur le dernier le signe de celle- 
ci (bit 7 à 1 s’il est positif, à 0 s’il est 
négatif). 


E2 à F2 : routine GETCAR, place 
dans l’accumulateur du 6502 le code 


ASCII ou le code du mot Basic pointé 
par l’adresse contenue en E9, EA. On 
peut modifier cette routine pour redé- 
finir la syntaxe des instructions du 
Basic. 

E9, EA : voir pointeur précédent. 

FA à FE : contiennent en virgule 
flottante le nombre servant de base à 
la génération des nombres aléatoires 
(fonction RND). En modifiant ces 


deux octets, on peut simuler une ins- 
truction RANDOMIZE. 


Cette liste indique quelles sont les 
principales variables système de la 
page zéro de la mémoire vive. Elle peut 
bien entendu être complétée. 


Denis SEBBAG 


PC:1251 


( Je voudrais réserv… 


PEUT-ON ENCORE 
RÉSERVER ? 


Le PC-1251 présente 18 touches dites « de réserve » regroupées dans les 
deux rangées inférieures du clavier. L'utilisateur dispose de 48 octets de 
mémoire vive pour donner à ces touches, quand elles sont shiftées, la significa- 
tion qu’il veut. C’est une disposition très pratique que de pouvoir ainsi per- 
sonnaliser en partie le clavier. 


Par ailleurs, comme sur la plupart des poquettes Sharp, l’ordre MEM indi- 
que la mémoire restant libre pour le programme ou les données. Mais il n’existe 
pas d’ordre permettant de savoir où l’on en est de la mémoire de réserve. 


Voici, en trois lignes, un petit utilitaire qui affiche le nombre d’octets de 
réserve encore disponibles. Pour l’interroger, presser DEF M. 


de la zone Basic (voir pointeur 
suivant). 


A6, A7 : adresse de la fin de la zone 
Basic (ou HIMEM). 

A8, A9 : numéro de la ligne Basic 
en cours d’exécution. 

AA, AB ou AC, AD : numéro de 
ligne où a été effectué le dernier 
BREAK. 

B0, B1 : adresse du prochain DATA 
à lire. Peut être modifié à votre gré 
pour simuler un RESTORE L,N par 
exemple. 


997 M’? À = 32767 : M = 49 

998M = M—-I1:A=A + 1:GOTO (PEEK A = OOR PEEK A = 255) + 998 

999 PRINT ‘’'MEM RES :°’;:M 
B4, BS : nom de la dernière varia- 

ble créée tel qu’il est écrit en mémoire, 
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Jean-Antoine BERRO 
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BASIC 


OBTENTION 
D'UNE DONNÉE MANQUANTE 


Pour remplir un tableau de 
données à partir d’un clavier 
d’ordinateur, il suffit d’introduire 
ces données. Mais si certaines d’entre 
elles (dépendantes des autres) man- 


Programme d'obtention 
d’une donnée manquante 


15 OIM Dia 

20 PRINT AT 2,2; "1,CISTANCE" 
30 PRINT AT 4,2; "Z,VITESSE" 
40 PRINT AT 6,2; "3,.TEMPS" 

S0 FOR T<1 TO Ë 

60 IF INEEY#2"" THEN GOTO E0 
70 LET A=VAL INFET# 

80 FRINT AT Ax2,12;"= 9" 

30 INPUT Dia) 

100 PRINT AT AxZ,14;D(A) 

110 NEXTT 

120 FOR T=1 TO S 

130 IF DiTi=0 THEN LET A=T 
149 NEËTT 

130 GOSUR 4#100+100 

160 PRINT AT A#2,1; MOTAR 12 te "sy 
170 STOF 

200 REM CALCUL DE LA DISTANCE 

219 LET X=9(2)#D(3) 

225 RETURN 

300 FEM CALCUL DE LA VITESSE 

310 LET X*=Di1)1/D(3) 

320 FETURH 

400 REM CALCUL DU TEMPS (DECIMAL) 
419 LET #=D(1)/D(2) 

420 RETURN 
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quent, il faut les calculer, ou les faire 
calculer par un programme. 


Au lieu de créer un programme 
spécifique pour chaque donnée man- 
quante, on peut regrouper les diffé- 
rents traitements possibles dans un 
même programme qui orientera la 
donnée vers le traitement qui la con- 
cerne. 


cerne (lignes 200 à 420) et le résultat 
est affiché (ligne 160). 


Il faut vérifier que le tableau 
dimensionné, ligne 10, a bien été ini- 
tialisé (toutes les valeurs à zéro). Cer- 
tains Basic ne possèdent pas l’instruc- 
tion INKEY$ (lignes 60 et 70). Il fau- 
dra la remplacer par GET. Quant à la 
ligne 150, elle peut encore s’écrire 
avec ON... GOSUB. 

L'exemple pris ici peut être étendu 
à d’autres, l'essentiel étant que les 
données soient liées entre elles par 
une relation (c’est bien le cas des 
variables vitesse, distance et temps). 


Yvon PÉRÈS 


Par exemple, pour remplir un 
tableau à trois colonnes, DIS- 
TANCE, VITESSE, TEMPS, on uti- 
lisera le programme d’obtention 
d’une donnée manquante (qui devra 
être utilisé alors comme sous- 
programme). 


Il traite automatiquement la don- 
née manquante, que ce soit la dis- 
tance, la vitesse ou le temps. En effet, 
il la repère (lignes 120 à 140) grâce au 
zéro contenu dans D(T) qui tient lieu 
de drapeau. Il l’oriente alors (ligne 
150) vers le traitement qui la con- 


TI-57 LCD 
TROMPE-L'ŒIL 


A TI-57 LCD semble avoir des réactions surprenantes parfois. J’en ai eu 

une preuve en l’allumant, alors qu’elle était éteinte, sans passer par ON. 
J’ai appuyé sans lâcher prise sur 2nd, puis sur LRN, enfin sur =, et j'ai relâ- 
ché une par une ces touches dans le même ordre. L’écran s’est rempli alors 
de 4 et d’indicateurs. En effectuant l’opération inverse avec la touche + /- 
au lieu de =, j'ai tout effacé : + /- puis LRN et enfin 2nd. Comment expli- 
quer un tel comportement ? 


Mario TAGLIARINO 


Une règle élémentaire permet d’allumer ou d’éteindre la TI-57 LCD, sans 

passer par ON ou OFF : joindre une des touches du haut du pavé avec 
l’une de celles placées sous le OFF (pour éteindre) ou sous le ON (pour allu- 
mer), à angle droit et par l’intermédiaire d’une ou de plusieurs touches. Cette 
dernière (ou ces dernières) opère la jonction entre la rangée horizontale et la 
rangée verticale. 

Par exemple, la machine allumée sera éteinte par R/S LBL BST ou encore 
par 2nd STO 7 EE). Si elle est éteinte, elle pourra être allumée par OFF BST 
SST ou bien par INV 458 x. Mais un tel allumage laisse la TI-57 LCD bien 
inactive. Cet affichage étrange ne serait-il qu’un trompe-l’œil ? 


David SEGARD 
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, 


TO7 


CHEFS-D'OEUVRE 
EN PÉRIL. 


Suis-je bête ! Sur mon TO7, je 

viens d’ordonner NEW de façon 
irréfléchie et j’ai perdu mon 
programme. 


Mais non, mon cher Watson, la 
commande NEW n’a pour effet que de 
remettre à zéro le pointeur de ligne 
situé à l’adresse 26101 et codé sur 2 
octets. Pour repêcher un programme 
(en Basic, bien sûr), il suffit de repé- 
rer où se trouve le début de la ligne sui- 
vante. Il faut pour cela se souvenir 
exactement de la première ligne du 
programme perdu. 


LATE 


Madame, Monsieur, bonsoir. * 
les plongeurs se relaient 
jour et nüit afin de repêcher 
le programme pour TO? 
perdu” lundi dernier en 
Mer du Nord, conséquence 
de l'épouvantable tempête qui... 


Supposons que cette première ligne 
était 10 CLS. Nous trouverons en 
26101 la valeur 0, puisque nous avons 
demandé NEW, et O aussi en 26102 
(deuxième octet du pointeur). En 
26102 et 26103, sur deux octets donc, 
nous trouvons le numéro de la pre- 
mière ligne de programme. Ici, il s’agit 
de 10 ; nous aurons donc 0 en 26102 
et 10 en 26103. 


En 26104, nous trouverons 217 
(c’est le code de CLS), et 0 (fin de 
ligne) en 26105. La ligne suivante com- 
mence par conséquent en 26106. Or 
26106, c'est égal à 26106/256 = 101 
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pour l’octet 


de poids fort, plus 250 26102, 250. Il n’en faut pas plus. 


pour l’octet de poids faible. On Essayez, si vous ne me croyez pas... 
recharge donc le pointeur en 26101 et , 
26102 par POKE 26101, 101 et POKE Jean-Paul CARRE 


DAI 


TEXTE MIXÉ AU GRAPHIQUE 


Sur le Dai, la structure de la mémoire d’écran ne permet pas d’emblée 
de mixer du texte au graphisme. C’est bien dommage, car cela force à 
utiliser des routines additionnelles qui dessinent les lettres du texte dans le mode 
graphique désiré. Réalisées en langage-machine, elles sont souvent assez rapi- 
des pour faire honnêtement illusion. Maïs le prix à payer est une manipulation 


lourde, pas toujours évidente, et surtout un encombrement indésirable de la 
mémoire vive. 


Il existe pourtant une autre solution, à laquelle on pense rarement : la page 


Graphique et texte 
Programme pour Dai 


Auteur Alain Mariatte 
Copyright LIST et l’auteur 


10 KREM 
z0 KEM 
30 REM 
40 KEM 
5a REM 
60 KEM 
78 KEM 
106 REM 
118 REM 


DEEE DM DE DD NE DE DE HE DE HE DE HE DE DE DEEE DEEE HE DD DE DEEE HD DEN DD 


2% TEXTE MIXABLE DANS LA PAGE GRAPHIQUE a lcal 
TE PROGAMME POUR DAI #6 
RHONE DE DD DEAD DER DEEDE DEN DE DE DE DM DE HE DD DE DD DE HE DE DE DE DEN EE 


120 MODE 6A:LCOLORG @ 5 10 15:PRINT CHR#(12) 


1:08 FOR 
149 NEXT 
150 REM 
160 REM 


1'=0.0 TO 100.0: DRKAW @,8 RND(XMAX) ,RND(YMAX) 28+(1! MOD 3) 


*LIGNE 190 EN MODE TEXTE 4 COULEURS,7 SCANS 


178 CE=#BFEF-100*90:FOKE CH,#66 


175 A$=" 


##XUNE LIGNE DE TEXTE EN 4 COULEURS####364646 


177 L'=LEN(A#) 
160 GOSUE 1190 


192 REM 
2va REM 


#LIGNE 150 EN MODE TEXTE 16 COUL.,7 SCANS 


210 CB=H#ERFEF-1S50*x90:FOKHE CB,#Eé 


212 A#&=" 


##XUNE LIGNE DE TEXTE EN 16 COULEURS##262062 1 


214 L'2LEN (AE) 
22 FLAG!=1.0:GOSUR 1190 


270 REM 
40 REM 
END 
REM 


*LOULEUR @ DANS LE REGISTRE 4 (FOUR QUE LA FIN DE LIGNE SOIT PROPRE) 
POKE CB-1,#F9 


REM 

REM #LA LIGNE ESF REMPLIE DE LETTRES 
AD=CE-2 

FOR 1!'=8.û TO L'-1.@ 


A'=ASC (MID# (A#,1!,1)):FDKE AD,A! 

1F FLAG'=0.0 THEN FOKE AD-:,0:GOTO 1246 

R'ERND(16.0) SHL 4.@:IF R'<16.0 THEN R'=16.G:REM eviter le zero 
FOFE AD-3,R! 


AD=AD-2 

NEXT 

IF FLAG'=1.0 THEN POFE CHB-9@+2,22:REM CODE SFACE POUR NETTOYER FIN LIGNE 
REM 

REM *ON RECHARGE LA COULEUR 15 DANS LE 4eme REGISTRE 


POKE CB-1-9D,#FF 
FLAG! =9. @: RETURN 
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vidéo du Dai est totalement redéfinissable, ligne à ligne, s’il le faut. A défaut 
de pouvoir mixer réellement du texte au dessin, au moins peut-on simplement 
définir des lignes « texte » et des lignes « graphique » à volonté. Il est même 
possible de faire cohabiter du texte et plusieurs modes graphiques simultané- 
ment à l’écran, du moins dans des parties distinctes de l’écran. 


Ce « miracle » est possible si l’on joue sur les deux octets de contrôle qui 
codent l’état de chaque ligne d’écran. Le programme de démonstration place 
la page graphique en haute résolution (336 X 256) 4 couleurs (ligne 120), trace 
aléatoirement des lignes de couleur (c’est le « dessin » !), puis redéfinit deux 
endroits de l’écran pour y inscrire du texte, en « pokant » les codes ASCII dans 
deux lignes redevenues des lignes de MODE 0, au milieu des autres qui sont 
restées en MODE 6. 


Voyons cela de plus près : d’abord, en MODE 6, pour trouver le début d’une 
ligne (en partant du haut de l’écran), il suffit de faire : # BFEF-x*x90, où x 
est le numéro cherché. L’octet présent à cette adresse est l’octet de mode de 
la ligne. Pour en faire une ligne de texte 4 couleurs, il faut y placer # 66 : pour 
du texte 16 couleurs, # E6. En effet, # 66 s’écrit en binaire 01100110, ce qui 
donne : 

e bits 7,6 : 01, c’est-à-dire mode 4 couleurs/caractères : 
e bits 5,4 : 10, c’est-à-dire haute résolution ou 40 caractères/ligne ; 
+ bits 3, 2, 1, 0 : 0110 qui code l’épaisseur de la ligne. 


Pour 16 couleurs/caractères, on a # E6 (11100110) : 
e bits 7,6 : 11, soit 16 couleurs/caractères : 
e les autres bits demeurent inchangés. 


Pour le reste, le sous-programme débutant à la ligne 1190 place seulement 
le code des lettres de la chaîne AS sur l’écran. N'oublions pas que nos deux 
lignes sont redéfinies en MODE 0, donc que, tout à fait classiquement, l’octet 
attribué à la première lettre à gauche de la ligne se trouve en « adresse du Con- 
trol Byte - 2 » et que chaque lettre est séparée de sa voisine par deux octets. 
De même, pour 16 couleurs, n’oublions pas que l’octet de couleur d’une lettre 
se trouve 3 octets plus bas que la dite lettre. 


Avec un peu d’entraînement, il est donc possible d’envisager la création de 
pages écran multimodes, superposant haute et basse résolutions, texte, etc. Inté- 
ressant, non ? 


Alain MARIATTE 


Apple II 


main est donnée (en langage-machine) 
au programme débutant à l’adresse 
indiquée en $3F2-$3F3 (1010-1011). 
Attention, ceci n’est vrai que s’il s’agit 
d’un « démarrage à chaud» (la 
machine a déjà été initialisée). Le 
moniteur détecte le type de démarrage 
en examinant l’octet $3F4 (1012). Si le 
résultat d’un OÙ exclusif entre $3F3 
et £$AS correspond à ce qui se trouve” 
en $3F4, alors c’est un démarrage à 
chaud, et il quitte le programme. Dans 
le cas contraire, c’est un démarrage à 
froid : la machine est ré-initialisée 
(équivalent de CTRL-Pomme ouverte- 
RESET). 


Pour récupérer cette touche 
RESET, il va donc falloir réaliser un 
petit programme-machine et mettre en 
place ce vecteur d’indirection. Dans 
notre exemple, nous allons supposer 
l'implantation de ce programme en 
$300 (768). Attention, cette zone n’est 
pas disponible si vous utilisez le 
MEM/DOS 6502. 


Il faut donc placer, en $3F2-$3F3 
l’adresse $300, soit : POKE 1010,0 : 
POKE 1011,3. 


Il faut ensuite mettre à jour l’octet 
$3F4 pour qu’il soit bien le résultat du 
OÙ exclusif entre $03 et $AS. Pour 
cela, point besoin de calculs, nous dis- 
posons d’une routine du Moniteur le 
faisant automatiquement. Elle se 
trouve à l’adresse $FB6F (64367 ou 
— 1169). Donc : CALL —1169. 


Reste à écrire notre programme. 
Dans l'exemple, nous allons simple- 
ment afficher à l’écran le texte ‘‘PRO- 


Protection de programme 
pour Apple Il 


CA CHEZ AIL EQU  $3C 
AIH EQU  $3D 
A2L EQU  S$3E 
A2H EQU $3F 
CETTE LISTE... AL EQU 142 
A4H EQU $43 
HOME EQU $FCS8 
MOVE EQU $FE2C 
PWREDUP  EQU £3F4 
. DEBUT JSR HOME 
Vous voulez rendre impossible SUITE LDA £$AO 
le listage d’un de vos program- STA AIL 
mes ? Voici une méthode assez radi- LDA £$B2 
cale. Pour obtenir la liste d’un pro- STA A2L 
gramme, il faut d’abord en interrom- LDA  £$03 
pre l’exécution. Pour cela, si aucun .. ju 
point d arrêt n’est prévu, deux LDA £S$00 
solutions : STA A4L 
e le CTRL C, facile à protéger par le STA PWREDUP 
ON ERR GOTO, LDA  £$07 
e le RESET. STA A4H | 
Ce dernier travaille par indirection. ne is 
C'est-à-dire qu’en cas de RESET, la 


Effacement de l'écran 
Mettre la valeur $AO0 dans $3C 
Mettre la valeur $B2 dans $3E 


Mettre la valeur $03 dans $3D 
Mettre la valeur $03 dans $3F 


Mettra la valeur $00 dans $42 
Mettre la valeur $00 dans $03F4 


‘Mettre la valeur $07 dans $43 
Transfert du texte en mémoire écran 
Boucle sur le programme | 
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Texte du message 


03A0-— 50 52 4F 47 52 41 4D 4D 
03A8 — 45 60 50 52 4F 54 45 47 
03B0-— 45 60 61 


GRAMME PROTEGE”’. Nous allons 
donc écrire le texte en code-écran entre 
$3A0 et $3B2 (928 à 946) et utiliser, 
pour le transférer en mémoire d’écran, 
le sous-programme du moniteur se 
trouvant en $FE2C (— 468). II néces- 
site d’avoir positionné auparavant 
l’adresse de début de zone en $3C-$3D 
(60-61), l’adresse de fin en $3E-$3F 
(62-63) et l’adresse de destination en 
$42-$43 (66-67). Mettons-le à la qua- 
trième ligne de l’écran, soit en $700. 
Un petit détail : si l’utilisateur, énervé 
par le message, fait un deuxième 
RESET, la machine sera ré-initialisée 
grâce à un procédé très simple, notre 
petit programme modifiera la valeur 
de l’octet $3F4 en le mettant par exem- 
ple à O. 


On trouvera page précédente le pro- 


Huit lignes de Basic 
pour implanter la routine 


0 ONERR GOTO 2 

1 GOTO 3 

2 CALL 768 

3 POKE 1010,0: POKE 1011,3: CALL 
— 1169 

4 DATA 32,88,252,169,160,133,60, 
169,178,133,62,169,3,133,61, 
133,63,169,0,133,66,141,244, 
3,169,7,133,67,32,44,254,76, 
3,3 

5 FOR I = 768 TO 801: READ X: 

POKEI,X: NEXT 

6 DATA 80,82,79,71,82,65,77,77,6 
9,96,80,82,79,84,69,71,69,96, 
97 

7 FOR I = 928 TO 946: READ X: 

POKEI,X: NEXT 


gramme en Assembleur. La liste en 
Basic permet d’implanter la routine 
correspondante en langage-machine et 
protège aussi le CTRL C. Attention, 
si vous la tapez au clavier, sauvez-la 
avant de faire un RESET... 


Jacques LABIDURIE 
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ZX 81 


COORDONNÉES POLAIRES 
OU RECTANGULAIRES AU CHOIX 


Le ZX 81 n’est pas doté de la fonction permettant de convertir les coor- 
données polaires en rectangulaires, ni de la fonction inverse. Or ces fonc- 
üons sont très utiles pour bien des applications scientifiques et techniques, ou 
plus simplement pour certains programmes de jeu. Voici deux courts program- 


mes qui permettent de les obtenir. 


Programme 1 
Polaires — Rectangulaires 


Coordonnées polaires 


d 


5 PRINT ‘ANGLE ?”° 
6 INPUT A A(R.8) 
10 PRINT AT 2,0 ; ‘R ?”’ 
11 INPUT R 
15 LET X = COS (A / 180 x PI) # R 8 
20 LET Y = SIN (A / 180 x PI) x R 0 sa 
25 PRINT AT 0,7; A; TAB1I5;, “X =”: X 
30 PRINT AT 2,7; R; TAB 15; “Y = ”:Y R : distance de O à A 

8 : angle AOx 

Coordonnées rectangulaires 

Programme 2 
Rectangulaires — Polaires 

nnsass umdancen NUE ME) 
$ PRINT ‘:X ?” 4 : 4 
6 INPUT X ‘ 
10 PRINT AT 2,0, ‘‘Y ?” : 
11 INPUT Y ï 
15 LET À = (ATN (Y/X) + 180/PI) 0 a 
20 LET R = (Y/SIN (A/180 x PI)) 
25 PRINT AT 0,3; X ; TAB 10 ; ‘ANGLE =” ; A 
30 PRINT AT 2,3; Y ;, TAB 10; “R ="; R 


On a choisi d’utiliser les degrés comme unité angulaire, mais, pour les fonc- 
tions trigonométriques, le ZX 81 ne travaille qu’en radians, d’où la conver- 
sion effectuée aux lignes 15 et 20. 


Le premier des programmes (P — R), demande l’angle 8 puis la distance 
R (du point O au point A) et il affiche les coordonnées rectangulaires X et Y 
du point A. Le second demande l’abscisse X et l’ordonnée Y avant d’afficher 
l’angle 0 et la distance KR. 


Christophe TA VERNIER 
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MSX 
UN BON DESSIN VAUT MIEUX... 


Une quinzaine de commandes 

(dont chacune est ici attribuée à 
une touche particulière) permet de des- 
siner en couleurs sur l’écran de tout 
ordinateur au standard MSX. Le 
mode d’emploi résumé du programme 
est affiché en permanence. 


Pour tracer, par exemple, un poly- 
gone segment par segment : 
e appuyer sur V pour valider le pre- 
mier point ; 
e déplacer le curseur au moyen des 
quatre flèches ; 
e appuyer sur T pour tirer une droite 
reliant le point précédent. 


Pour obtenir une figure discontinue, 
presser sur V. Si l’on veut dessiner un 
cercle : on désigne son centre (une 
pression sur V) et l’un des points de 


Dessinateur 

Programme pour MSX 
Auteur Jacques Boisgontier 
Copyright LIST et l’auteur 


Serres DESSINATEUR 


16 ” 
26 CF=15:CE=1 
36 COLOR CE,CF 


couleur fond et ecriture 


46 SCREEN 2 
5 
66 OPEN "GRP:" FOR OUTPUT AS #1 


78 PRESET(18,1259:PRINT #1,"CLAVIER MAJUSCULE" 

68 PRESET(18,1453:FPRIMT #1,"FLECHES FOUR DEFLACER" 

96 PRESET(18,155):PRINT #1,"Y:VYALIDATION 1ER FOINT" 

198 FRESET(18,165):PRINT #1,"T:TKACE DROITE C:CERCLE" 

118 PRESET (18,1759:PRINT 4#1,'"A4:ANNULATION TRACE / P:PEINDRE" 
126 PRESET(18,;185):PRINT #1,"1,:2,3,.F COULEURS G:GOMMER" 

130 *x=108:Y"=100 ? Coordonnees depart 

142 XA=Xx :'"YTH=Y ? cocordonnees Point Precedent 

154 XB=XxA:YB=YA 

168 5PRITESC 1 >=CHRSÇ 191 ) * curseur 

1PQ “=-séssemersss curseur €sPrite) 

186 PUT SPRITE 1,C%x,7-12,CE,1 

130 
26g 
216 
228 
238 IF 
248 IF 
258 IF 
268 IF 
278 IF 
88 IF 
296 IF 
368 IF 
318 IF 
320 IF 
334 IF 


CS=INKEYS:IF C$="" THEN 298 ?’ test clavier 
C=ASC CS ) 

C=29 THEN X=#-1:GÜ0TO 189% ? 
C=28 THEN X=x+1:GOTO 188 
C=31 THEN YeY+1:GOTO 180 
C=3@ THEN Y=Y-1:GO0TO0 186 
C>32 THEN GOSUE 380 
C$="V" THEN PSETCX, Ÿ 3, CE: XAzX : YA=Y 

C$="T" THEN LIHECXA, YARD-CX, Ÿ 2, CE: XBEXA: YB= YA: XA=X : YA=T 
C$="C" THEN R=SGRCCX-XA INZ+CY-YA 22) CIRCLECXA, TA), RCE 
C$="G" THEN LIHECXA, YA)-CX,2,CF, BF 

C$="A" THEN LIMECXB, YB)-CX, Ÿ 3, CF: X=XB:Y=YB:XAzX:YA=Y 
C$="P" THEN PAINT CX,Y),CE 

346 IF VALCC#2C)9 THEN CE=VALCCS#) 

358 IF C$="F" THEN CE=CF 

366 GOTO 180 


-379 : 
384 PRESET(18,125):COLOR CF:PRINT #1,CHR#&C 206) 
PRESET( 18, 125):COLOR CE:PRINT #1,C5 


390 
466 RETURH 


On remarquera la gestion du curseur avec un « sprite ». 
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93uche 
droite 
bas 
haut 


sa circonférence (une pression sur C). 
Quant aux autres commandes, ce 
sont : 

e P, peindre une figure fermée (on 
positionne le curseur à l’intérieur de la 
figure) ; 

e A, annuler le dernier tracé (pour une 
droite) ; 

1: 2,3... 
d’écriture ; 

e F, dessiner en couleur de fond sur 
une partie coloriée de l’écran (dans ce 
cas, le curseur disparaît sur une zone 
non peinte, et on le rend visible en 
changeant la couleur) ; 

° G , gommer toute la surface d’un 
rectangle. 


Une des directions possibles pour 
développer le programme consiste à 
stocker les commandes dans une table 
et à sauvegarder ainsi les dessins pour 
éventuellement les modifier. 


Jacques BOISGONTIER 


NOTATION 
POLONAISE 


UN 
PROGRAMME 
TRIANGULEUX 


Tout le monde sait qu’un trian- 

gle est parfaitement déterminé 
quand on connaît les coordonnées de 
ses sommets À, B, C (par rapport à 
des axes perpendiculaires dans un 
plan). On peut alors théoriquement 
calculer les longueurs a, b, c de ses 
côtés — traditionnellement a est la 
longueur de BC, b celle de CA et c 
celle de AB. On peut aussi calculer les 
trois hauteurs &, B, y (c’est-à-dire les 
distances du sommet A au côté BC, de 
B à CA et de C à AB) et les mesures 
des angles en chacun des sommets : 
nous noterons À, B, © ces nombres 
avec le grade comme unité. 


Le programme est donné en Lan- 
gage Machine Spécialisé pour calcula- 
trice Hewlett-Packard (c’est une 11C 
qui m'a servi, mais ceci serait valable 
pour pratiquement toutes les autres). 
Il est facilement adaptable à n’importe 
quel ordinateur de poche voisin. La 
traduction en Basic serait immédiate, 
car les formules utilisées sont très sim- 
ples. On commence par calculer les 
côtés par des égalités du type : 


a = VX) + (y) 
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choisir la couleur 


(suite page 81) 


____ _ Q 


de DE 


(suite page 81) 


sénat oO RE — 


programmer 

un ordinateur est 
devenu pour vous 
un loisir, un plaisir... 
une passion, sachez que LIST a été créé 
pour vous. LIST vous aide à tirer davantage 
de votre matériel, à vous perfectionner 
dans la conception des programmes 

qui “tourneront” sur votre machine. 

LIST vous initie aux langages informatiques 
et sélectionne les meilleurs livres pour 
progresser. LIST vous informe de l'actualité 
et vous fournit trucs, astuces et idées 

pour mieux programmer... 

Pour être sûr de ne rater aucun numéro 

et pour recevoir LIST chez vous, 
abonnez-vous! 


le demi-périmètre p = (1/2)(a+b+c), 
Paire S du triangle : 
S = Vp(p—a) p-b) P-0) 


la hauteur & = 2S/a, le rayon r du cer- 


cle inscrit (c’est-à-dire du cercle tan- : 
gent intérieurement à chacun des côtés 


du triangle) égal à S/p et enfin les 
angles du triangle par les formules : 
7. 

2 p-a 

Elles sont très faciles à transporter 
si l’on dispose de la fonction ATN (arc 
tangente) qui figure dans la plupart des 
Basic. 


Voici le programme pour HP-11C : 
LBL A : GRD : R/S : STO 5 : R\ : 
STO 4 : R/S : STO 7 : Ri : STO 6 : 
RS : STO 9 : R{ : STO 8 : RCL 6: 
— : RCL9:RCL7:-:R—P:STO 
1:RCL8:RCL4: — : RCL9: RCL 
5:—-:R—>P:STO2:RCL6:RCL 
4: — : RCL7:RCLS5S:-:R—P 
: STO 3 : RCL 2 : + : RCL 1 : + : 
2:+:STOC:RCLI:-:STO7 
: RCLO:RCL2:-:STO8: x : 
RCL 0 : RCL 3: — : STO 9 : x 
: RCLO: x : Vx: STO I : RCL 1 : 
+ :2: X : STO 4 : RCL I : RCL 2 
: +:2: x : STOS : RCL I : RCL 
3: +2: x : STO 6 : RCL I : RCL 
0: + : STO 0 : RCL 7 : + : TAN-! 
:2: x : STO 7 : RCL 0 : RCL 8 : 
+: TAN-!:2: x : STO8 : RCLO 
: RCL 9: +: TAN-!:2: x : STO 
9 : RCL 1 : R/S : RCL 2 : R/S : RCL 
3: R/S : RCL 4 : R/S : RCL 5 : R/S 
: RCL 6 : R/S : RCL 7 : R/S : RCL 
8 : R/S : RCL 9 : RTN. 


Avant toute exécution, on choisit le 
format d’affichage par une instruction 
FIX n (n compris entre 2 et 9 par 
exemple), on lance le programme par 


la touche A, puis on commence à . 


entrer les données dans l’ordre : 
abscisse de A, ordonnée de A 
abscisse de B, ordonnée de B 
abscisse de C, ordonnée de C 

(en attendant au moins une demi- 
seconde entre chaque entrée). 


Au bout d’une quinzaine de secon- 
des, s’affiche le côté a; par des 
RUN/STOP on obtient ensuite dans 
l’ordre les côtés b et c, puis les hau- 
teurs æ, B et y, enfin les mesures (en 
grades) des angles À, B et C. 


Si l’on veut afficher de nouveau ces 
nombres, on peut les trouver respec- 
tivement dans les mémoires de 1 à 9; 
le rayon r du cercle inscrit est, lui, en 
mémoire 0, et l’aire S en mémoire I. 
Ce programme de 120 pas occupe 11 
mémoires. 


André WARUSFEL 
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CTRUM ET MICRODRIVI 


TOUT FICHIER À UNE FIN 


ANS le n° 2 de LIST, j’ai lu avec beaucoup d'intérêt votre article sur 
le microdrive du Spectrum et son catalogue. Sans doute connaissez-vous 
une solution au problème que je vais vous exposer. 


Pour écrire un fichier sur le microdrive, il y a l’instruction PRINT #. Si, 
par la suite, vous demandez de lire un élément qui n’existe pas dans un fichier, 
un message END OF FILE vient interrompre le programme. J'ai essayé de trou- 
ver une solution dans Îles variables-système, mais en vain. D’avance merci. 


Gilles DESSARCE 


Les microdrives vous permettent 

d’écrire sur cartouche des fi- 
chiers, malheureusement uniquement 
séquentiels. Si vous relisez un fichier 
par programme et que vous n’avez pas 
de compteur du nombre d’items ins- 
crits sur le fichier, un désolant compte 
rendu END OF FILE arrêtera l’exécu- 
tion lors de tentatives de lecture au- 
delà du dernier item. 


Plusieurs solutions existent pour 
pallier cet inconvénient. La plus sim- 
ple est sans doute de garder en 
mémoire ou au sein même de votre 
fichier un compteur du nombre 
d’items le composant. La mise en 
œuvre des autres solutions passe par 
la compréhension des variables- 
système. Regardons-y. 


Pour déterminer l’adresse du canal- 
microdrive concerné, le programme 
moniteur du Spectrum utilise 3 varia- 
bles-système dénommées CHANS, 
STRMS et CURCHL. CHANS pointe 
vers le début de la zone des canaux. 
STRMS permet de retrouver, en fonc- 
tion de la voie utilisée, la valeur qu’il 
faut ajouter à CHANS pour obtenir 


l'adresse du canal courant, c’est-à-dire Comment éviter 
CURCHL. END OF FILE 


Routine pour Spectrum 
Les deux octets de STRMS concer- Auteur Benoît Thonnart 


nant une voie se situent à l’adresse Copyright LIST et l’auteur 


mor La routine de verification (45 octets) ---------—- 
26,118,1%8,198,22,111,38,92,94,35,86,27,42,79,92,25,229,221,228, 
67,78,200,221,94,11,221,86,12,221,110,69,221,102,70,257,82,192,12, 


REM Implantation de la routine de verification (ici 23296) 
FOR n=i TO 45: READ a: FOKE 2329S+n,a: NEXT n 


REM  ######xne Exemple d'utilisation #22 


19 KEM Lecture et ecriture sans risquer le compte rendu END OF FILE 
20 OUFEN # 4;"m';1; "origine" 
30 LET voies4: FOkE 27728 ,voie 


590 IF USR 22296 THEN 60 TO 80 
60 INFUT #4sn: FRINT n 

76 GO TO 5D 

80 REM Suite du programme 

90 CLOSE # 4 

100 STOF 
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Lecture et écriture sur microdrive 
Programme pour Spectrum (version Basic) 
Auteur Benoît Thonnart 

Copyright LIST et l’auteur 


Le sous-prôgra 
le compte rendu E 
lignes 9 000 à 9 510. 


10 REM Lecture et ecriture sans risquer le compte rendu END OF FILE 


ZO OPEN # 45"m';1i; "origine" 
30 OPEN # S;'"m'";1l; "destin" 


40 LET voie=4: GO SUR 9000: REM Verification 


SO IF a$t="fini" THEN GO TO 80 

6Q INFUT #4;n: PRINT #S;n 

7@ GO TO 40 

80 REM Suite du programme 

98 CLOSE # 4: CLOSE # 5 

100 

200 

300 

400 

S0@ STOP 
9000 REM 
9010 LET a$="encore" 
9020 LET strms=23574+2+*voie 
9870 LET chans= FN p(23%36%1) 


9049 LET curchl= FN pistrms)+chans-1 


9050 LET recflg= PEEK (curchl+67) 
9060 IF recflg{? THEN RETURN 
9070 LET chbyte= FN p(curchli+11) 
9080 LET reclen= FN p(curchl+69) 


s REM Hit 1,(ix+67) —% 


— END OF FILE 7 = 


Reset 


9090 IF chbyte=reclen THEN LET a#="fini" 


9100 RETURN 
9200 
93:00 
9400 
9500 REM 


one Fonction DEEK (PFEEK sur 2 octets) --------—- 


9510 DEF FN pix)= PEEK x+256*% FEEK (x+1) 


23574 + 2 « le numéro de la voie. 
L'adresse moins un, pointée par ces 
deux octets, ajoutée à l’adresse poin- 
tée par CHANS donne l’adresse du 
canal courant. 


L'ouverture d’un fichier, en lecture 
ou en écriture, crée une zone (appelée 
Canal microdrive) de 595 octets. Les 
83 premiers octets de cette zone repré- 
sentent un descripteur du fichier. Ils 


Assemblage de la routine 

12 sRecherche END OF FILE 

20 ; ORIGINE a preciser 

20 3 No de voie FOFE par le 
6Q 3; EHASIC dans la variable 
70 ;systeme 25728 

90 LD A, (I1Y+118) 

110 sRecherche de l'adresse 


120 sdu canal microdrive 
130 sconcerne 


140 

150 ADD A,A 
160 ADD A,#16 
170 LD L,A 
180 LD H,#5C 
190 LD E,(HL) 
200 INC HL 
210 LD D,(HL) 
220 DEC DE 
230 LD HL,(2%631) 
240 ADD HL,DE 
250 PUSH HL 
260 POP IX 
270 LD EHC,Q 
280 
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peuvent aussi être assimilés à des 
variables-système. 


Trois de ces variables vont plus par- 

ticulièrement nous intéresser, pour 
résoudre notre problème. 
e RECFLG : le bit 1 de cet octet est 
à zéro si le secteur lu n’est pas le der- 
nier du fichier ouvert en lecture ou en 
écriture, et il est à un si c’est le der- 
nier secteur du fichier ; 


290 ;Si ce n'est pas le 
300 sdernier enregistrement 
310 sretourne la valeur 0 


330 HIT 1,(IX+67) 
340 RET Z 

350 

360 : DE=CHBYTE 

370 

280 LD E,(IX+11) 
390 LD D,(CIX+12) 
400 

410 : HL=RECLEN 

420 

430 LD L,(Ix+69) 
440 LD  H,(IX+70) 
450 

46@ ; CHBYTE=RECLEN ? 
470 

480 SEC HL,DE 
490 RET NZ 

500 


310 sdernier enregistrement 
520 slu, retourne 1 dans KC 


540 INC C 
350 RET 


e CHBYTE : compteur représentant 
le numéro de l’octet de la zone des 
données venant d’être lu ; 

e RECLEN : nombre d’octets de 
données du fichier dans le secteur lu. 


Muni de ces informations, on 
devine ce qu’il va falloir tester pour 
éviter un compte rendu END OF FILE 
lors de la lecture d’un fichier. 


1. Le bit 1 de RECFLG est à 0 :on 
peut sans problème continuer la 
lecture. 


2. Le bit 1 de RECFLG est à 1 : 
deux cas se présentent. Si le contenu 
de RECLEN est supérieur au contenu 
de CHBYTE, cela signifie qu’il y a 
encore des items à lire. Inversement, 
c’est-à-dire si le contenu de RECLEN 
est égal au contenu de CHBYTE, le 
contenu du fichier a été entièrement lu 
et il ne serait pas bon de poursuivre. 


Un sous-programme de vérification 
en Basic tel que celui qui est présenté 
ci-contre (lignes 9 000 à 9 510) vous 
avisera par le contenu de la variable 
A$ si la lecture du fichier concerné 
peut se poursuivre. Le seul paramètre 
nécessaire au sous-programme est le 
numéro de la voie sur laquelle a été 
ouvert le fichier pour la lecture. 


Pour qu’il reste le plus clair possi- 
ble, ce sous-programme débutant en 
ligne 9 000 n’a pas été optimisé. Vous 
pourrez le rendre plus concis et plus 
rapide à l’exécution. 


Un exemple d’utilisation de ce sous- 
programme vous est par ailleurs pro- 
posé. Le programme lit un fichier 
« origine » préalablement défini et 
écrit chaque item dans un nouveau 
fichier « destination », l’exécution se 
terminant correctement à la ligne 500. 


La même fonction, mais en langage- 
machine, vous convaincra par sa con- 
cision et sa rapidité. La routine de la 
page précédente est entièrement relo- 
geable et peut donc être implantée soit 
dans le tampon de l’imprimante soit 
au-dessus de RAMTOP. 


Le seul paramètre nécessaire à la 
routine est le numéro de la voie sur 
laquelle a été ouvert le fichier. Ce 
nombre doit être « poké » par le Basic 
à l’adresse 23728 (variable-système 
inutilisée). La routine retourne la 
valeur 0 si l’on peut continuer la lec- 
ture et la valeur 1 s’il ne faut plus lire. 


La bonne utilisation des variables- 
système permet de remédier à certai- 
nes déficiences et d’aller plus loin en 
programmation, notamment avec les 
microdrives. 


Benoît THONNART 
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NN 


NN 14 RÉCRÉ DE LisT: ES 


LES JEUX 
ET CASSE-TÊTE 
. Le . INFORMATIQUES 


de Thierry CHAMORET 


DES jeux et casse-tête qui vous sont proposés 
 _ dans cette rubrique ont plusieurs aspects. 
Tout d'abord, ils peuvent être pris sous l'angle ludique, c'est-à-dire 
_ qu'il s’agit de jeux, de petits problèmes plus ou moins faciles à résoudre. 
. Ils ont également un aspect pratique. Ils permettent 

en effet à chacun d'exercer son agilité logique. Et il n’est pas nécessaire, 
pour trouver la solution, d’avoir un ordinateur sous la main... 


Un test impossible n'est pas 

français !/ Encore un 

coup des étrangers / 
{ 


Un test impossible Toujours plus court 


Un test de comparaison comme 
celui-ci : if (A / B) < 1, ne pose 
apparemment aucun problème. Pour- 
tant, si B prenait la valeur nulle ou une 
valeur proche de zéro, une erreur d’exé- 
cution, due à la division par zéro ou à 
un dépassement de capacité, se produi- 
rait. Un programmeur avisé, songeant 
à cela, décida de remplacer le test ci- 
dessus par : if A < B. 


Ce test semble équivalent. Pourtant, 
après cette modification, le programme 
ne donna pas les résultats escomptés. 
Pouvez-vous dire pour quelle raison et 
comment corriger le test pour obtenir 
quelque chose d’équivalent ? 
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Nous avons trouvé, dans un vieux 
programme, la séquence d’ins- 
tructions suivante : 

10 for I = 1to N 

20 if I — 2 + int (1/2) = 0 

30 then E (1) = int (1/2) + 1 

40 else E (1) = int (1/2) 

50 next I 


Dans le langage qui est utilisé ici, int 
est une fonction qui retourne la valeur 
entière du nombre qui, ici, est passé en 
paramètre. 


Ces instructions ont pour objet 
d’initialiser les N éléments du tableau E. 
Mais il faut dire que la technique de 
programmation utilisée n’est guère 
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me 


explicite. Une fois que vous aurez 
compris ce que voulait faire le 
programme, il vous sera possible de le 
réécrire pour qu’il soit à la fois plus 
simple à comprendre et plus court (trois 
lignes sont suffisantes). 


SOLUTIONS DU NU 


»>v10 


Gagner des microsecondes 


Pour remettre à zéro un tableau 
T de 100 éléments, en gagnant des 
microsecondes, il est nécessaire d’utiliser 
la technique du « dépliage ». Si elle 


: augmente la taille du programme, elle 


permet aussi d’en réduire le temps 
d’exécution. Nous pouvons ainsi écrire : 
10 for I = 1 to 100 step 2 


20 T(I) = 0 
30 TI + 1) = 0 
40 next I 


Le calcul du temps d’exécution de ce 
programme est le suivant : 


-. 50 fois la ligne 10 + 50 fois la ligne 20 


+ 50 fois la ligne 30. Soit, 42 500 + 
44 000 + 55000 = 141 500 micro- 
secondes. 

Le résultat satisfait largement à notre 
impératif de réduction du temps. 

Par rapport à la simple boucle, 
10 for I = 1 to 100 
30 T(I) = 0 
30 next I 


] \ 
at la h. 


Une autre fonction 
aléatoire 


‘ La fonction RND retourne un 
nombre aléatoire compris entre 0 
(inclus) et 1 (exclu). A l’intérieur d’une 
expression, elle permet d’obtenir les 
nombres entiers compris entre À et B, 
de manière aléatoire (voir la solution 12, 
« l’aléatoire encadré »). 

Certains langages ne disposent pas de 
cette fonction. Par contre, ils disposent 
de RANDOM qui renvoie un nombre 
aléatoire compris entre 0 et 32767 (égal 
à 2 A 15 — 1), tous deux inclus. 


Vous trouverez certainement une ou 
deux expressions arithmétiques qui 
permettent, en une ligne et à partir 
d’une telle fonction RANDOM, 


POUR CEUX Qui AIMENT 
VRAIMENT L'PVENTURE 


LE up PES RANDOMHEURS 
NOS EXCURSIONS ALÉATOIRES 
CL'EVEREST EN ESPAPRILES 
LES CHUTES pu 2MBÈZE À@. 
EN BARIL DE LESSIVE exc. 


d’obtenir un nombre pseudo-aléatoire 
entre À et B (tous deux inclus). 


* Les solutions des jeux proposés ici paraîftront 
dans le prochain numéro de LIST. 


MÉRO PRÉCÉDENT 


Les solutions présentées ici répondent aux problèmes 
posés dans le précédent numéro de LIST. 
Ce ne sont pas forcément les meilleures ! 


# 


qui s’exécutait en 173 000 microsecon- 
des, la réduction du temps d'exécution 
du programme ést de l’ordre de 18 %. 


»vv{l 


Trouver les mots 


Les mots qui se rapportent aux 
définitions proposées sont : 

1. ordinogramme (ou organigramme) 
2. compilateur 
3. boucle 

4. processeur 
5. baud 

6. capteur 

7. didacticiel 
8. algorithme 
9. mémoire 
10. déboguer 


>>>12 


L'aléatoire encadré 


L. Une formule générale qui permet 
d'obtenir, à partir de la fonction 
RND, un nombre (entier) aléatoire 
compris entre À (inclus) et B (inclus), 
est : 

INT((B—A +1) x RND) + A 

où INT(X) retourne la partie entière de 


Sur certains Basic, la fonction RND 
s’écrit RND(0), RND/(1), RAN, etc. 
Pour simuler un jeu de dés, il suffit 
de prendré À = [| et B = 6, 
L'expression devient : 

INT(6 x RND) + 1 
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Chez Duriez : 15 micros 


portatifs + 9 domestiques 


Imprimantes, Magnétophones, Moniteurs, Logiciels 


POUR 
CHOISIR, pen- 
sez 2 fois. 

1° Les perfor- 
mances de 
l'appareil ? 

2° Les perfor- 
mances des pro- 
grammes dispo- 
nibles ? 

Duriez fait des 
sélections pour 


ATARI, CANON, CASIO, COMMO- 
DORE, HEWLETT PACKARD, 


ORIC, 


SHARP, 


Avez-vous 


vu les 


SINCLAIR, 
THOMSON. 


Charter° Duriez ? 


valables jusqu'au 15 Décembre 


ATARI 
600 XL Péritel . . . ..1990 
800 XL Péritel . ........2490 
Magnéto ..... ee 426 
Lecteur de disquette ....2754 
Imprimante courrier 3229 
Traceur 4 couleurs. . 854 
Manette de jeu ........ 120 


A RAAAAAX 


e 

* Machines * 

+ + e 
+x aecrire 
+ Photocopieurs 
+ Répondeurs 
téléphoniques 
+ Calculatrices 
+ Papeterie 
* etc... 
[] Demandez le 
nouveau 


catalogue 
général 
Duriez 


contre 3 timbres 
à2,10F. 


[] Duriez, 
112 et 132 

bld St-Germain 
75006 Paris 
(M° Odéon, St- 


D AA AR AAA HD AH A AR 
MEME NIMES MENU 


CANON 


X07 mémoire 8K ...... 1940 
Traceur 4 coul. X710... 
XO7 + X710.......... 3750 
Interface video ...... 
Extension 8K . 750 
Carte mém. 4KXM100 . 412 
Carte mémoire 8K XM101 850 
Cordon magnéto ....... 65 
Coupleur optique ...... 470 
Inter. RS232 + cordon .. 725 
Cordons imp. parallèle . 295 


Secteur. ............. 82 
Carte Fichiers ......... 530 
Carte Graphique ...... 530 
Carte Math/Stat ....... 530 
CASIO 
PB700.......... .. 1480 
Traceur 4 coul. FA10.... 2280 
PB700 +FA10..... 3700 
Extension 4KO R4 427 
Magnéto intégré CMI... 850 
Interface FA4 ......... 865 
Fx702P 1050 


Interface magnéto FA2.. 280 


300 prix 


AU CŒUR DU QUAR- 


TIER LATIN, Duriez 


vend en magasin et par 
poste à prix charter. © 


bancs 


Il publie régulièrement 
d’essai et Catalo- 


gues condensés de caracté- 
ristiques techniques préci- 
ses, sans délayage publici- 


taire, 


complétés par des 


appréciations et des tests 
Duriez sans complaisance. 


Ce banc d'essai est gra- 


tuit en magasin, ou envoyé 


vous éviter des 
regrets. Vous 
êtes tranquille. 


Interface TV 3450 
Interface moniteur 2290 
10 mini cassettes digit.. :. 990 
OLIVETTI 
M10 mémoire 8&K . 4950 
M 10 mémoire 24K ... 6990 
Troceur 4 coul -.. 2090 
Secteur 98 
Cordon imp. parallèle 199 
Cordon imp. RS 232 .. 498 
ORIC ATMOS 
Oric Atmos 48 K 2250 


Cordon Péritel + alimentation 


Imprimante FP10 .. 610 
Fx 750 1550 
FA 20 


Carte 4Ko. 

FP200..... fire 2990 
Extension 8K ....... 623 
Cordon magnéto....... 85 
Traceur 4 coul. . .. 2280 
Lecteur de disquettes . ... 4430 
Clavier numérique ; 512 
Secteur. .... 225 
Cordon impri. parallèle | 390 
Extension CETL (ROM) .. 809 

AMSTRAD 

CPC 464 + moniteur vert . 2990 
CPC 464 + moniteur 

COUTBUF «5; ds gs 4490 

COMMODORE 

Commodore 64 Pal..... 2750 
Commodore 64 Péritel... 3450 


PERIPHERIQUES VIC20 et C64 


Lecteur de cassettes... : 450 


par poste contre 3 timbres 


à 2,10 Frs. 


Ordinateurs 


MSX 


nouvelle norme 
Japonaise 


DISPONIBLES NOVEMBRE 84 


Yamaha, Sanyo, 
Yeno, Spectrovidéo 


DISPONIBLE DÉCEMBRE 84 
Canon 


TZAV ssiipreesseiocnnsss 95 
Traceur 4 coul. + cordon. 1510 
Cordon magnéto (jack) 45 
Cordon imp Parallèle 1 150 
Modulateur noir et blanc 210 
Modulateur coul. SECAM 530 
Lecteur de disquettes 3° . 3600 
disquette 3°... 69 
LOGICIELS EN K7 
Aigle d'or (K7] 180 
Categoic (K7) 95 
Xenon (K7) 120 
Zorgon (K7) 120 
Hobit (K7] 249 
Forth {(K7} 180 
Anglais Assimil (K7) 440 
Author (K7) 187 
Oric Calc (K7). 187 
Pol} Fichier 180 
SHARP 
PC 1500 A 2065 
Traceur 4 coul. CE 150 .. 1990 
PC 1500 À + CE 150 3990 
Extension 8K CE 155 790 
Ext. 8K Protégée CE 159. 1000 
Ext. 16K Protégée CE 161 1700 
Inter. RS232/Parallèle 1990 
Cable imp. parallèle 480 
Clavier sensitif 1265 
PC 1251 1085 
PC 1245 620 
PC 1401 1060 
PC 1260... 1580 
PC 1261. 1990 
Interface magnéto 169 
Imprimante CE 126P 790 
Imp. + magnéto CE125 . 1695 
SINCLAIR 
ZX81 580 
Extension 16K 360 
Spectrum 48K Péritel 2325 
Spectrum 48K Pal 1965 
Interface Péritel 360 


HEWLETT-PACKARD 
HP11C.. ; . 810 
HP15C ... 1235 
HP 12C 1235 
HP16C .. 1235 
HP41CV.. Ev 2190 
HP41CX.... --.. 2880 
[Le à DES 5100 
Extension mémoire 4K . 784 
Lecteur de cartes 

magnétiques (HP 71}. 1634 
Interface . .… 1318 
Lecteur de cartes [ 1Cj 1850 
Lecteur optique ---. 1190 
Imprimante 82 143. . 3690 
Accus rechargeables ,... 390 
Chargeur ... se 195 
40 cartes magnétiques . 239 
Papiertherm. noir (6b.) 120 
Mémoire quadruple 809 
Module X fonction 809 
Module temps . .. . 809 
Module mémoiretampon. 809 


PERIPHERIQUES HPIL 


Module HPIL pour HP41. 1348 
Lecteur de cassette digit. . 4770 
Imprim. thermique HPIL 4770 


TEXAS INSTRUMENTS 


LOGICIEL 
Jawbreaker Il (cart) .... 190 
Othello {cart} 188 
Mash (cart).....,...... 190 
The Attack (cart) 134 
Star Trek {cart} ....... 190 
Return to Pirate | (cart) .. 190 
Tombstone.City {cart} 188 
Super Demon Attack {cart} 190 
Tlinvaders {cart} 188 


Lecteur de disque 1541 2250 
Imprim. 50 cps MPS801 . 2690 
Traceur 4 couleurs. .,.., 1995 
Interface RS232C . 345 
Manette de jeu . à 120 
Crayon lumineux. . 475 
LOGICIEL C64 
Utilitaire 
TOOL 64 (cart) . .... 640 
Master {disq} ....... 950 
64 Forth (cart). is. 4588 
Zoom Pascal (disq) as 456 
HES MON 64 (cart) .... 390 
Professionnel 
HES Writer (cart) ...... 329 
Omnicalc (cart) ........ 329 
Stat 64 (cart) . : 490 
Graph 64 (cart) 380 
Multiplan (disq) 1100 
Vizawriter {disq).. 1355 
Super Base 64 (disq) 1190 
Educant 
furtle graphic (cart) 588 
Paint brush (cart) 223 
Sinthy 64 (K7] ...... 326 
Turtle Toyland (isa) 338 
Coco {disq] : - 440 
Jeux 
Beach Head {K7)....... 150 
Solo Flight (K7)........ 225 
Summer Games (K7) .... 245 
Harrier Attack (K7) ..... 105 
EPSON 
PX GE ssisssssnssss 10300 
Extension mémoire 60K  ..….. 
3300 
Extension mémoire 120K 
4660 
HX 20 - 5800 
Magnéto intégré 1100 
Extension 16K 1200 
Modem + cordon 1755 
Cassette Intext 780 


Hopper (cart) ........ 190 
Mind Challenger {cart} . 134 
Burger Time (cart) ...... 190 
THOMSON 
MO5 
Lecteur de K7 
TO7-70 ia 
Lecteur K7 .... 690 
Extension 64K ........... 1055 
Contrôleur de communic. 850 
Manettes jeux et son 580 
Lecteur dis. avec con. 3596 
Memo Basic ; 480 
Cordon imp. - 290 
Interface SECAM .. 530 
CASSETTE LOGICIELS TO7 MOS 
Sauterelle. . .. 124 
Mots croisés | 188 
Mots croisés 2 188 
Mots en fleurs . 188 
Lire vite etbien ........ 188 
Un mot pour le compte . 168 
Multiplication 
casse-tête ... 168 
Pulsar...... ... 140 
Eliminator 120 
Une affaireenor....... 155 
[ii] RER RER 148 
MONITEURS 
Philips TP 200 
fan 12 pouces) ...... 990 
idelity pi 36cm) . 2980 
Thomson {couleur 42 cm) 3430 
IMPRIMANTES 
Avec interface parallèle Centronics 
Seikosha GP 50A ..... 1250 
Seikosha GP 500A .... 2500 
Epsan RX 80 


Brother HR5.. 
Brother 1009 


Âvec interface RS 232C : 


Brother EP 44 ........ 2690 
Brother HR5......... 1990 
Brother 1009 

(avec parallèle et RS 232) 2290 


MAGNÉTOPHONES 

Radiola RA 310 ...... 430 
Canon X730......... 690 
Sanyo DR 202 ....... 690 
Sanyo TRC 1550...... 795 


D 1 Catalogue Duriez 
‘Micros’ (essais comparatifs 
des 20 micro-ordinateurs les 
plus vendus chez Duriez) con- 
tre 3 timbres à 2,10 F. 


F] 1 Catalogue général 
Duriez (Calculatrices Machi- 
nes à écrire, Répondeurs, Pho- 
tocopieurs, Classeurs, Dic- 
teurs, Papeterie, etc...) contre 
3 timbres à 2F10. 


+ Je commande à Duriez 2132, Bd St-Germain, 75006 Paris. 


[' Le(s) article(s) entouré(s) 
sur cette page photocopiée (ou 
cités ci-dessous). 

A Ci-joint chèque de 


Écriture under aies F 
ÿ compris Port ct Emballage 
40H. 

D Je paierai à réception 
(Contre-Remboursement)} 
moyennant un supplément de 
30 F + 40 F Port et 
Emballage. 
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Si changement de prix, 
je serai avisé avant C 
expédition. 
Mes Nom, Prénoms, 
Adresse (N°, Rue, € te: 
Ville) 


